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QUICK LOOK-UP OPERATING INSTRUCTIONS 
fe A gu | LOOK UP THE FOLLOWING SECTIONS: 


— ray ser 
jee TO THE TABLE OF 
baiInG ° 


— 


suse" 
Pee IniteRy Procrans 
STARTING ADDRESS 

poe MODES 8&8 OPERATOR ACTION 


Bt ie 


SWITCH OPTIONS 
SCOPE LOOPS 

PROGRAM STRUCTURE 
ERROR REPORTING 
ERROR INTERPRETATION 


HEROLERS AND COMMON ROUTINES 


ane 
TTY ePOLER ( oS tp nrc TYPEOUT ROUTINE 


rh tag yt RK11 INTERRUPTS 


COl 


SES 0002 


ee 


pied. AT Ast fe Beste “Lobic oF a 


aie a POS Sette 


USED CTLY nara CAN BE AN EFFECTIVE 
ANALYTIC AND DIAGNOSTIC TOOL. 


REQUIREMENTS 

EQUIPMENT 

A. POPL1 WITH CONSOLE TELETYPE. 
. RK11 OR RKV11 CONTROLLER 

PRELIMINARY PROGRAMS 

NONE 

EXECUTION TIME 


GEE FESLCUIL ENS SRL AM fa TE 


ASTER MACHI 


STARTING ADDRESS 
eo ee OF OPERATION. NORMAL START UP WITH 
SUITORS ; 
PROGRAM CONTROL MODES & OPERATOR ACTION 
_ TAPE LOADING 
DUMP 


teen 


PAPER TAPE LOADING 

LOAD PROGRAM INTO MEMORY USING STANDARD PROCEDURE 
FOR .ABS TAPES. 

PRE ION RAGING MALFUNCTIONING. 

LOAD ADDRESS 200 


"WRT PROT’ AND ‘*LOAD’ AS A 


DO1 


SES 0003 








E01 


4.1.4 Ui Ng at at (SEE SEC 5.0) IF TESTING ON 


PRESS START. 
4.1.5 THE PROGRAM IDENTIFIES ITSELF (NAME,MAINDEC NO). 


RK11 LOGIC TEST I 
MAINDEC-11-DZRKI-D 


“16 BY STAPLER HT Ee “TE 


END PASS 8 X 
CAes MRGER StF 2,3---), CONTROL 1 


WHERE X= PASSED 
io me BEGINNING "THE PROBRAM AND RE-EXECUTION 


1s Sores FREE PASSES OF TE PROGRAM APPEAR AS SHOWN 
| 





4.2.) THE IS LOADED INTO THE MEMORY BY THE RKDP 


(4.2.2 START AS NORMALLY USING SA 200 
4.2.3 FIES ITSELF (NAME,MAINDEC NO.) AND 
| PROCEEDS WITH TESTING 


4.3 RKDP CHAIN MODE 


| THE PROGR IDENTIFIES ITSELF” IT PROCEEDS MITA TESTING. 


(4.4 RCTLL MODE 
| sTaRTING, -HOENTIP IES nITSELE pe PROCEEDS HTH THe 


(5.0 — SHITCH OPTIONS 
| IF THE PROGRAM IS BEING RUN ON A SWIT AN 11734) 


US Fee be ETPRIYS Tbe aR BLA 














*SOFTWARE® SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). 
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Brie vols array alee 


RECOGNIZE THE yy G’ whenever the ¢ pcogren enters 


al Mek fy ES ake “en "AS AR OCTAL NUMBER IN RESPONSE 
eae RY ROUTINE 
*SUR = NNNANN NEW =’ 


SVR eR Ara “ 


DURING SWITCH ENTRY 

ee or a 
ae or THRE RE RERISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 
Siesta Oh RES 

Sup =| fant a TO He previous 
Sicidoat a eas SIMLATOR 

Sw 0921 fest on SPEC at C ERROR 

Sw<08>=1 LOOP ON TEST AS PER SW<07:00> 

Sw< 15> 
TEING Me oT THe ERG ae BY ako PERTINENT 
INFORRATI oN ING “CONTINUE” RESTORES NORMAL 


OPERATION OF THE PROGRAM. 
SW< 14> : 
ST ate ist 
SW <13> 

25 SUP DUT Be RP SPL GST 
SW <12> 

THIS SWITCH ALLOWS ne ro 

Hoh kiss by aN ane Bee 
a To 


SEQ 000s 


5.6 


5.7 


6.0 


a 
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SW «11> 
EACH SUBTEST WILL BE EXECUTED OMLY ONCE. NORMALLY 
AFTER THE FIRST PASS, EACH om} IS ITERATED A 


erring. Te OF ee adit pots * rERATIONS, So Fnat 


SW <10> 
THIS SWITCH WHEN SET INDICATES THAT TESTING IS BEING 


Goat utrme a 
«09> 


J oe TE PRvites POSSIBLE 
da Pte IN BT Zar TON 
Se 


Brae fla WHEN A 
PARTICULAR PART BEING REPEATED USING 
( you ie Ne a TT 
os oe Do ete 
PATTERN S61 IS GIVING ERROR, YOU MIGHT NOT WANT TO 
PATTERNS BEFORE HITTI 
PA : N THIS | SW 9 WILL GIVE YOU 
A LOOP ON THE S61TH ONLY.) 


THERE ARE THREE KINDS OF SCOPE LOOPS AVAILABLE 
1. SW14: LOOPING IS DONE FOR THE ENTIRE SUB-TEST 


2. SWi2: LOOPING IS DONE FROM THE POINT OF ERROR 
TO THE PREVIOUS ’SCOPE’ STATEMENT. 


3. SWOS: PROVIDE THE TIGHTEST POSSIBLE SCOPE LOOP 
SEE SEC. 5.7 


Fst: SCOPE 


INITIALIZATION 


GOl 


SES 0006 


ay ee me 
TEST; TEST 1 STARTS AT 'TSTI’ AND ENDS JUS 


IN THE TRATION BELOW --> INDICATES THE POINT 
FROM RETURN IS MADE AND LOOPING IS DONE. 


1. ERROR 2 OCCURS, SW 14 SET. 
TST1. .ERROR 2..1ST2-->TSTi..ERROR 2..TST2-->TST1... 
2. ERROR 2 OCCURS, SW 12 SET. 

TST1...ERROR 2-->TST1...ERROR2-->TST1... 

3. ERROR 2,3; SW 14 SET. 

TST}, ERROR 2. .ERROR 3..1ST2-->TST1..ERROR 2. .ERROR 


4. ERROR 2,3; SW 12 SET. 
TST1...ERROR 2-->TST1...ERROR 2--)TST1.... 


Wace ee 


‘BEING. REPEATED USING DIFFERENT rate Vo 


PoorS THE. EXAMPLE BETO” Lee te 
DIFFERENCE BETWEEN SW 9 AND 1 
TST1: SCOPE 

INITIALIZATION 

ERROR 1 


HOV #18, SLPERR * CONTAINS 
ADDRESS TO LOOP 


HE 
BACK ON ERROR- SW 9 


1$: : snens 
: I 


HO1 


SEG 9007 


7.0 





ERROR 2 N REPETITIONS 
TsT2: SCOPE ---- 


1. SW le SET, ERROR & OCCURS DURING K.TH 
REPETITIONS 


TST1..1,2...K.ERROR 2-->TST1..1,2...K.ERROR @-->TST1.. 


2. SW 9 SET, ERROR 2 OCCURS DURING K.TH REPETITION 
1S..K..ERROR 2-->1§..K..ERROR 2--)1§... 


PROGRAM DESCRIPTION 
N THIS PART OF THE PROGRAM THAT 
TROLLER IS CHE CH 
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BelsHoteels aed elt 


TS 
THE TESTS ARE GRADUALLY BUILT UP 
BASIC AND SIMPLE LOGIC FIRST AND THEN PROGRESSI 
MORE COMPLEX LOGIC. 
FIRST Test! Of ae ALL RK 
INIT LOaT ION te OF RK 


EF 
it ae 


UNIQUELY 


ERROR REPORTING 


T STARTI AT TAINS 
INFORRAT ON PERTAINING 8 EVERY THAT RR 
OCCUR. EACH ITEM IN THE TABLE CONSISTS OF FOUR 
ENTRIES. 
A. EM - THIS IS A POINTER TO THE ERROR MESSAGE TO 
BE TYPED OUT WHEN THE ERROR OCCURS. 
B. DH - He A POINTER TO THE DATA HEADER TO BE 
T OUT. 
C. DT - THIS IS A POINTER TO THE DATA WHICH IS TO 
BE TYPED OUT UNDER THE HEADERS. 
D. O - THIS IS A TERMINATOR SIGNIFYING THE END OF 
THE ITEM. 
THE ERROR CALL IS AN EMT INSTRUCTION WITH ITS LOWER 


101 


SEG 0008 





9.0 


10.0 


i0.1 


BYTE ENCODED TO INDICATE THE ERROR NUMBER. THUS 
“ERROR 1” WOULD BE (EMT+1) IE 104001. 


ee ec ee 


AS FAR AS POSSIBLE. THE ERROR 
SHORT 


WHENEVER ERROR MESSAGE IS 
REGISTERS aN OTHER DATA PERTAINING TO 
ALSO GIVEN. RKDS. RKER.. NOICATE THE CONTENTS 
OF THE CORRESPONDING Reis Tene i IME 


EVERY ERROR cores A PC. 


ae Ma Naa tag 
PRAGTICAL CONSIDERATIONS IS ‘ aD 


. in MANY _INST a 
ane FAULT iat IVE RI Q MORE 
hg Mie bre ROR eB 
EXAMINATION OF TA WILL BE AINLY 
HELPFUL IN PINPOINTING THE FAULT. A BRIEF 
BEING CHECKED IN THE SUB 


EXPLANATI 
IS BI VEN cy Te GINNING OF EVERY SUBTEST. ALL 
NUMBERS G ee ERROR MESSAGES ARE IN OCTAL. 


A. AS A SUBROUTINE THROUGH ’JSR’ CALL 
B. THROUGH A ’TRAP’ HANDLER 


USED A tho? ae THE 
SIOE_LOMER, VTE OF THe Tee ee a 
S LOCATED AT fed en 


I TE OF 
THE "CALL INSTRUCTION” AND USES IT TO FORM THE 


JOl 


SES 0009 





10.2 


10.3 


10.4 


a ee 


10.5 





STARTING ADDRESS OF THE ROUTINE TO GO TO FOR 
SERVICE. 


SCOPE HANDLER 
THE "TOT" TRAP IS USED BY THE SCOPE’ STATEMENT. 


SeSusTen “TH, This I NOt ADV staat T 
PROGRAM A rgrieaae Te THE VARI 
POINTERS aN Piha ny NOT BE CORRECTLY ADJUSTED. 


ERROR HANDLER 
The’ (LOWER BYTE {5 ENCOOED TO Give DIFFERENT ERROE 


104G00+16) ‘EN TH THE ERROR STATEMENT | 1s EXECUTED of 
OCCURS TO MEMORY 


CONTROL RESET ROUTINE 


ENEOUED. "TRAP INeTR Te aie ts AN 
4 ” _ INSTRUC es N  “CNT.RE IS 
CONTROL caer ROUT STARTING AT 

RESET IS ISSUED AND 


CONTROL READY ROUTINE 


THIS ROUTINE Bot “CNT.RDY” (AN ENCODED 
* TRAP’ yh he ION LOCATED AT “CN.RDY". THE 
NE WAITS FOR THe CONTROL READY AND _WHEN 


I TO SET 
IT reeks EXITS OUT. IF CONTROL READY DOES NOT SET 
WITHIN A’ SPECIFIED TIME AN ERROR MESSAGE IS GIVEN 


CNTRL Be Al ald SET 
PC = RKCS = YYYYYY 


KO1 


SEG 00:0 


ee SS: hs 


10.6 


10.7 


LO1 


PC IS THE LOCATION AT WHICH THE “CNT.RDY” CALL 
ie Loca TED WAITING TIME IS 949 MS FOR 11720 
FOR Teas WITH BIPOLAR MEMORY. 


TIME DELAY ROUTINE 


THIS ROUTINE PROVIDES A I 
Galt “Ye DELAY oof MERE Tet YO 177707 (OCiRL) THM 
7. I [2 i Mat SECS 
11/45 ( § CONVER ED TO DECIMAL 
=i Y) IF N USER one TO CHANGE 
THE DELAY AT ANY POINT IT CAN BE DONE BY SIMPLY 


OTHER ROUTINES 
atm ARE OTHER COMMONLY USED ROUTINES AS LISTED 


STYPE: 
TYPE _ROUTINE FOR TYPING OUT ASCII STRINGS. 


LOCATED AT “$TYPE™ 
CALLED BY “TYPE™ 


STYPOC: 
ROUTINE FOR TYPING OUT OCTAL NUMBERS. 
LOCATED AT “$TYPOC™ 

CALLED BY “TYPOC” 


FOR id be OUT DECIMAL NUMBERS. 
Pf Pn “ST 


SERRTYP: 
ROUTINE 4a TYPING OUT ERROR MESSAGES. 
LOCATED AT SERRTYP 


CALLED BY “JSR SERRTYP™ 

Four ne F ING POWER FAILURE/POWER UP. 
PS Gor ne Ts EER 

SPWRFL,CALLED WHEN THERE IS ° POWER FAILURE. 
SPWRUP, CALLED WHEN THERE IS A POWER UP. 


UNEXPECTED TIMEOUTS AND RK11 INTERRUPTS 


A Sy TTD OHS EE ot 


Ie it ue. INTACT, IT CAN RESTARTED BY PrOY PRESSING 


IF AN UNEXPECTED RK11 INTERRUPTiOCBURS THE 
TYPES OUT THE PC AT WHICH THE INTERRUPT CAME IN AND 
THEN HALTS. PRESSING CONTINUE WOULD RESTART THE 





SES O0i1 


PROGRAM FROM BEGINING. SW 9- LOOPING CAPABILITY IS 
PROVIDED AS A TROUBLE SHOOTING AID. 


12.0 QUICK VERIFYING MODE 
THE haan PASS OF THE st ee IS A — or ae 


SA Loria! 
PaSSES 


MO1 


SES 00i2 





ene ee ee ee. 


S3isih 


NO1 
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30-AUG-76 14:48 TABLE OF CONTENTS 


OPERATIONA'. SWITCH SETTINGS 
BASIC he aig 
TRAP CAT 


STARTING ADDRESSES) 
ACT11 HOOKS 


OrNT TABLE 
CRT Peon ras 
i VALUE FOR SOFTWARE SWITCH REGISTER 
TEST THAT 1 REGISTERS CAN BE REFERENCED 


Ty TEST RKCS EXTENDED MEMORY atts” - 4,5 


te RHECK RRS SOE, EXE, FMT 1pA BITS - 8,9, 10,11 


17 CHECK READ ONLY BITS OF RK 
IT (0) can ae SET 


i 
28 
z 
8 
wo 


Tll CS WITH A COUNT PATTERN 
T12 CHECK THAT RKWC BIT 0-15 CAN BE SET 
T13 CK RKWC WITH A TTE 
14 CHECK THAT RKBA CAN BE 
T1S CHECK RKBA WITH A COUNT PATTERN 
T16 CHECK THAT RKDA CAN BE SE 
Ho Geek BP Ruut BSI-RLog" CANE ctemmen py Rese 
Tel BT RKCS, "RKWC, RKER, CL EARED BY CONTROL RESET 
fs GER Her Aire (Heavies ge mde Sue ootREEE 
154 Se THAT Hf ; t8 BY TEE OF Bk fie, BAY oa CAN BE ie 
E' 


ND OF PAS 
GT3RG: ROUTINE. FOR GETTING RKCS, RKER, RKDS 
GTYRG: ROUTINE FOR GETTING RKCS, RKER, RKDS, RKDA 
DELAY: TIME DELAY INE 
ON. RESET: cone. REST ROUTINE 

RDY: WAIT FOR CONTROL READY ROUTINE 


ERROR HANDLER ROUTINE - 
Fe MESSAGE TYPEOUT ROUTINE 
TY INPUT ROUTINE 
TYPE ROUTINE 

T_BINARY TO DECIMAL AND Tyre ROUTINE 


CONVER 
BINARY TO OCTAL (ASCII) AND TYP 
TRAP DECODER 


SEQ O0i2e 


set ay 11-DZRKI-D 
DZRKID.P 11 30-AUG-76 1 
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'#THIS PROGRAM WAS ASSEMBLED USING THE POP-11 MAINDEC SYSMAC 
s PACKAGE (MAINDEC-11-DZQAC-Ce), SEPT 14, 1976. 
JANUARY 
“SBTTL IONAL SWITCH SETTINGS 
33 SWITCH USE 
3% 15 
13 TYPE 
4 
:# 1 er aE TO Nee = SCOPE’ STATEMENT 
# 1 ia T 
:3 1 
;# 8 1b8e on ST IN SWR‘7:0 


MARCH 1976 
pee BY CHUCK HESS, AUGUST” 1976 
SeEVicevenvecceLenceasbasese3rhsetvesseeceapeuseunensenaeenent 


0 ANTE To FD CORIO BNE NG Tas Pos 


at CUTCTN THE ERROR TO Pace LI uiNes 8 AT ne. PC_POINTED 
aE aye 
TO AN PEASY PI INTING OF 
3 EAR ARES EE RE AE EE A ge a a a a aA aE a EE ED 


“SBTTL BASIC EF INITIONS 

ie INET IA ADDRESS OF THE STACK POINTER ### 1100 #%# 
“EU Ping FT ERROR ;;BASIC DEFINITION OF ERROR CALL 
QUIV IO0T ;;BASIC DEFINITION OF SCOPE CALL 


j ANISCELLANEOUS DEFINITIONS 
T= ;;CODE FOR HORIZONTAL TAB 


SEG 0014 





SES 00:5 
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sete Toner sa CobeLbiE : URGE 
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eicnaoneele 
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000001 
139 
140 
ia 
{M3 
144 
145 
146 000004 
147 000010 
l 9000 14 
1 M000 14 
| 180 000014 
boobed 
153 000030 
ts 000034 
i Boooes 
157 000240 
1S8 
159 
160 000000 
161 
lée 
| 164 174 
165 000174 Band 
16s 000176 000000 
168 000200 000137 O01S4e 
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;#DATA a! DEFINITIONS (BITOO TO BTiS) 


wernt 


orate 


§-40-00-40-06-40-40-40-06-40-40-40-40-45-40-5 
444 4 4 1 4 4 4 4 4-4-4 


4-44 

S— 
_ 
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e*eee 
EFUETRETUETIETIO—« 


Beeceeeees 
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* se @ 8 m 


iRRVECS 4 ” ales Sand VECTOR Ine OUT AND OTHER ERRORS 
SERVED AND ILLEGAL INSTRUCTIONS 


RESVEC= io 33RE 
Tetvet 1s i nec INT TRAP (BPT) 
otvecs ee i eur ourut TRAP (IOT) ##SCOPE## 
= 33 _— 

ENT VEC= 2 ; ;EMULATOR (EMT) ##ERROR## 
The e ue YBOARD cr OR 

C= 64 :;TTY PRINTER VECTOR 
PIRQVEC=240 $3 INTERRUPT REQUEST VECTOR 
-SBTTL TRAP CATCHER 

20 

se, UNISED LOCATION IONS FROM 4-776 776 CONTAIN A_”.42,HALT” 
HELOCATION, CONTAINS O10” CATCH ATCH IRPROPERLY LOR LOABED VECTORS 
DISPREG: . ;SOFTWARE DISPLAY REGISTER 


SWREG: ; | SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 
JMP @sSTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 


SES OCi6 





Speer a re ee ere eee 










E02 


ep ak MACY11 27(1006) O4-OCT-76 13:08 PAGE 4 


30-AUG-76 14:48 ACT11 HOOKS SEG 00i7 
ig8 -SBTTL ACT1I1 HOOKS 
12g + Naas geri + of pares SESEESSESESSEESESELESESESES 
t ood204 ; Reece ;SAVE PC 
174 OOCO46 = 
177 9000S2 000000 -WORD 0 ;;2)SET LOC.S2 TO ZERO 
i code04 - =SSVPC 3; RESTORE PC 


| DZRKIO 

| 

i 

i 000046 BOS 370 SENGAO 3;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOF 
| 
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SEG 0018 
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TER A “LINE FEED” 
AINED 
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< gegen 
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Epon 
CONTROL 
ERRORS 
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BE 
INDICATOR 


le 


et et et et et ee ee ee ee 


ea eee 


T 


ue SaBSSSRESS Si ie 


RERLLELHLLLELSEAELAELLRARERRELE 


CARRIAGE RETURN 
ti Cine FEED 


;AUTOMATIC MODE 
ara 
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bi 


-ASCIZ <15><12>/CNT RDY DIDN’T SET/ 


Sonne seeeeegaeg 


see to @ @ @ © © @ @ © © © © © © © &e wtete-ded cs ce 8 8 8 * 2. e@ @ © @ © © « 3s) 


a fee er pees 


rae VARIOUS COMMON STORAGE LOCATIONS 


Bon 7° 


Pe ee op 


-=1100 


UFAIE'TROLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


Mritiiritrir rite 


001216 o0so1s 047103 o20124 féc3: 


-SBTTL COMMON TAGS 


001100 


Geese gesceee ECR Beene 
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001224 pie lee 
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001e40 052105 

001244 


EEE 





001270 000220 


pit sit dos Se tt eae Pe AH 
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4:48 COMMON TAGS 


020131 O44S04 
CS2e047 051440 
000 


- EVEN 


Kl) Rt 
RNY RERSON THE GISTER ADDRESSES ARE DIFFERENT FROM THESE 


SS NE aT: Age PROPRIATE POINTERS SHOULD BE 


. 
[ed 


RKCS 
RKWC: 
RKBA: 177410 
RKDA: 
RKDB 


;TAGS AND GENERAL DATA AREA 


aps : : sFLAG. FoR cheat ING PROGRAM TITLE 

RKPRI: 200 ; CONTAINS THE CPU LEVEL LEVEL aT WHICH 
is BR 3 OT wa oes IT IS CHANGED 
:T0 & a 3 pORD BE 

RKVEC: 220 *CONTAINS THE NORMAL VECTOR ADDRESS TO WHICH 
: INTERRUPTS. IF THIS IS NOT SO, CHANGE 
‘THIS WORD TO CONTAIN MODIFIED VECTOR ADDRESS. 


SEG 0019 


HOe2 


BEACB-PLL  Sb-Ruc~7e Ia:4e 7) ERROR POINTER TROLE 


001272 


CE CenR EERE SSE MRR TOR CoRR EOE Stal total Saintes 


WWIII WW WIIG) 
0 0 = bb bs 2 be 
00 NOU £ Wr 


RESRES 


a 
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-SB8TTL ERROR POINTER TABLE 
Estee rneoRnafion 1s OBTAINED. BY USING {He INDEX NUMBER FOUND IN” 


sHLOCRTION SI $I : Tats eR I TES seeLCH TT ITEM HIN TH THE TABLE IS PERTINENT. 

: #NOTE2: EACH ITEM IN THE TABLE TCONTAINS 4 POINTERS. EXPLAINED AS FOLLOWS: 
is H HPOINTS 10 THE TA HERDER 

3% BF i p9 POINTS 10 TO THe BATA FORMAT 

SERRTB: 


{UeED In tude PRourAR. Ai ERmOR Gaul In’ The PROuRA COME SPOROS TO 


NUMBER IN THE ERROR TABLE. 1’ IN THE 
‘PRO 5 19 "Tren I iy The SPORT } 
: en THAT ERROR 2 1 br F CURR LS THe ERROR 
See Ae Pe OUT WILL ee Tine hate RKI1 Ree 
:*DHese’ IS POINTER TO THE HEADER BLOCK WHICH WILL BE TYPED OUT 


sfvedigreyy © 
>"DTsee’ SAS A pp ATER 0 THE MEMORY LOCATIONS WHERE 
>THE INFORMATION vent T THe TYPE OUTS (LIKE PC, CONTENTS 
OF RKCS ETc.) MILL BICKED 
THe LAST ROW AINING 'O’ SERVES AS A TERMINATOR. 

it oe THIS PROGRAM A TIMEOUT WERE TO OCCUR ON ADDRESSING RKDS 

), Be RUSE OF SOME FAULT, THE FOLOWING TYPEOUT WOULD 

Saae TIME OUT ON ‘ott REG 
eesees 177400 
: NOTE THAT #e#e8 WOULD BE THE ACTUAL PC WHERE "ERROR 1° IS LOCATED. 
THE ERROR HANDLER IS LOCATED AT ’SERROR’. THE ERROR CALL IS AN ‘EMT’ 
j INSTRUCTION WITH ITS LOWER BYTE ENCODED TO PROVIDE INDEXING TO THE 
:THUS "ERROR 1° IS 104001 
: "ERROR 126’ IS 104126 ETC. 


;ERROR ITEMS TABLE 


SEQ 0020 


SEQ 0021 
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eS Fa} rd x an 
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382 sITEM 11 
383 
384 901372 010663 EMI 
ae otace Biives Ne 
387 001400 900000 0 
= ;ITEM 12 
1 oo01402 011423 EM43 
392 001404 011715 DH21 
393 001408 011510 OT21 
3% 001410 900000 0 
395 
3% sITEM 13 
398 O01412 O10676 EM13 
399 OO1414 11656 DH11 
400 O01416 011464 pre 
401 001420 900000 
402 
403 sITEM 14 
404 
40S 001 10711 14 
406 14 11546 
14 11464 T 
408 001430 900000 0 
409 
410 sITEM 15 
aie 14 1 1 
i BNE Bi pit 
414 0014 11464 DT2 
415 001440 oo0000 0 
ai sITEM 16 
419 001442 011301 EM26 
420 pois 012067 DHE 
453 
| wed sITEM 17 
425 
| 426 001452 010766 EM17 
| abe Bolwee Oi igen DT2 
| 429 001460 pooceD 
430 
431 ;ITEM 20 
432 
, 433 ool462 O11022 - EM20 
4 OO 1Ne 011720 
4 1466 011474 OT20 
436 001470 O00000 0 
| (437 


J0e 


04-OCT-76 13:08 PAGE 9 
ERROR POINTER TABLE 


SEQ onze 
;RKWC ERROR 
Seppe $heob | SREGL 


;UNEXPECTED RK11 INTERRUPT 


3 CNTRL RESET DID AN aaa REGISTER 
} SERRPC Gl 


BO ERUROTE READ 


SERRPC SREGO SEG 


;RKCS ALTERERED ON CLEARING *REG-BYTE’ 
;PC REG-BYTE_(RKCS)EXP (RKCS)RECVD 
;SERRPC SRE SREG1 SREGe 


;BUS INIT DIDN’T CLEAR REGISTER 
;PC REGADD RECVD 


;SERRPC SREGO SREGI 


;ADDRESSING ERROR-TRIED 


ADDRES 
. REG1 ( 
;SERRPC SREGO SREGI 


TO 
(RE 
SRE 








K0e 


a a ee a root 27(1006) 04-OCT-76 13:08 PAGE 10 
OZRKJD.P11 


30-AUG-76 14:48 ERROR POINTER TABLE SEQ 0022 
438 sITEM 21 
4 ? i FRIED T ’REG-BYT’ HANGED 'REG-BYT2’ 

va Bolas Bistsi Bre? vere Mee fet-BVi2 BYT2-EXPCT BYT2-RECVD 
442 001476 011474 Dre $REG2 $REG2 
a3 001500 900000 
HHS sITEM 22 
447 go1sce 011103 EM22 ;D10 NOT CLEAR RKCS bo BYTE 

| ° 
a8 cae 11464 ve iSERAPC SKECO geet 
450 00151 be 0 
451 
tbe sIEM = 23 

po1si2 O11 3. ;DID NOT CLEAR RKCS HI BYTE 
ded tet 6112138 ake iP EXPCT Keep 
456 001516 011464 OTe :SERRPC $REGO 
437 001520 900000 0 
#3 sITEM = 24 
461 001522 011172 EM24  ; TRIED TO CLEAR RKCS "BYTE’, CHANGED ’REGIS’ 
462 001524 011767 DHe4Y :PC BYTE REGIS (REG)EXP (REG)RECVD 
463 001526 011474 DT20 :SERRPC SREGO SREG1 SREG2 SREG3 
464 001530 
4E5 
46 sITEM 25 
468 001532 011246 EM2S § ; FAILED TO CLEAR ’REG-BYTE’ 
469 001534 012041 : PC REG-BYTE RECVD 
470 001536 011464 OTe SERRPC SREGO  SREGI . 
471 001540 ocO0000 
472 
473 
qe 

| 476 oO01542 oOc00S START: RESET “CLEAR THE BUS 

477 -SBTTL_ INITIALIZE THE COMMON TAGS 
478 :3CLEAR THE COMMON TAGS (SCMTAG) AREA 
479 001544 012706 901100 MOV 8SCMTAG, Ro ;;FIRST LOCATION To BE CLEARED 
480 001550 D05026 ; CLR (Rb)+ CLEAR MEMORY LOCATION 
481 001552 001140 CMP #SWR,R& ;;DONE? 
4B 001556 001374 BNE ;;LOOP BACK IF NO 
483 O01560 012706 001100 MOV #STACK, SP SETUP THE STACK POINTER 
ue 001 1 005632 sg INITIATE . "ease aHI0T C ;;10T VECTOR FOR SCOPE ROUTINE 
486 pote piers 000340 ane MOV aalorvecee ifve ‘§ 
487 001600 012737 006104 000030 MOV #5E isEMT VECTOR FOR ERROR ROUTINE 
488 001606 012737 000340 000032 MOV #340 oe ae ; LEVEL 
483 001614 12737 010046 000034 HOV uSTRAP 98 #TRAPVEC dive peer FOR TRAP CALLS 
491 ante Bt sta ees MOV SSPURON ROPURVER ¢ ; ; POWER FAILURE VECTOR 
492 001636 012737 000340 000026 MOV #340 SAPURVECSE steve 
493 001644 005037 001206 CLR TIMES : IN YFtaL12e NUMBER OF ITERATIONS 
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Ss Ninn choo BONNE es Se RRS 


CNUTUNUNUTIU Un unr 
02 b= bs hs be ae bs bs be he 


SESSA LCH SOAR CORE oe MO Hees 


a 


bo 
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112737 
012737 
012737 
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001210 
00000 


002116 


002132 


27( 1006) 
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04-OCT-76 13:08 PAGE 1 
INITIALIZE THE COMMON TAGs SEQ o024 
CLR SESCAPE +3 CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB 81, SERMAX “ALLOW ONE ERROR PER 
HOV #. SLPEOR i EINITI 12 THE LOGE. ABDRESS.FOR SCOPE 
;;SIZE FOR a eRbitRe are pech TER. IF of EOUND OR tis 
: sEQUAL TO A *. ae Wee cise) ; SOF TWARE SUITCH REGISTER. 
y Prats auch EC ARVEC + TUPE VECTOR 
MOV ea $1 SETUB FOR A SWICH REGISTER 
Hoy SP, DISPLAY : SAND f HOROWARE ISPLAY REGISTER 
ENE {HERANCH HIF "To. ite Our. TR BP OCCURRED 
BR b 
64S: hoy ~ (SP) Hie "Te eNO UIPEOUT 
65S: HOV sSlcenee,Brseuay ;;POINT TO SOFTWARE SWR 
66S: MOV  DRERRVEC ;;RESTORE ERROR VECTOR 
.SBTTL TYPE PROGRAM NAME 
:;TYPE THE NAME OF THE PROGRAM IF FIRST pass 
INC #-1 ssEine Titer 
BNE 675 ; BRANCH 1 3 Pleated 
.SBTTL GET vaLut FOR SOF TWARE Shit eh Wee OZ 8 
TST 3; ARE WE APeIING UNDER XXDP/ACT? 
BNE eae” *BRANCH IF YES 
CHP SHR, #SHREG t SOF THARE SWITCH REG SELECTED? 
GTSHR a I CET SOFT-SWR SETTINGS 
598: MOVB #1, SAUTOB ;;SET AUTO-MODE INDICATOR 
men 


67$ ;;GET OVER THE ASCIZ 
-:685: .ASCIZ <CRLF>/RK11 LOGIC’ TEST I7¢15><12>/MAINDEC-11-DZRKJ-D/<CRLF> 


MOV #BADTMO, d#4 if ine igus OUT VECTOR FOR UNEXPECTED 
MOV SBADINT,IRKVEC ;SET 1_ INTERRUPT VECTOR FOR 
BR 


UP RK 
SCNEXPECTED prrenrrs FROM RK11 
TST1 ;G0 TO TEST 


;THIS ROUTINE HANDLES UNEXPECTED TIME OUTS 
BADTMO: MOV (7) 0 ;SAVE PC WHERE TIME OUT OCCURED 


TST - 
oe (SP)+, (SP)+ STORE STACK POLNTER 
YPE 65$ ii YPE ASCIZ STRING 


4§ 2 
jiB5S: PASCIZ <15><12>/UNEXPECTED TIME OUT AT PC=/ 





MAINDEC-11-DZRKI-D MACY11 27(1006) O4-OCT-76 13:08 PAGE 1 
OZRKID.P11 30-AUG-76 14:48 GET VALUE FOR SOFTWARE SuITCH REGISTER SEG 0025 . 


5S 01004 MOV RO, -(SP) :SET UP FOR TYPING OUT PC 
a re :GO TYPE OUT OCTAL PC 
233 000137 oo1s4e2 IMP JeSTART 
PAE INE HANDLES UNEXPECTED INTERRUPTS FROM RK11 
OLS 6 FOR : ING ON ERROR 
ON TEST IN WHICH TIMEOUT 
558 PROVIDED. 
pozene 911606 BADINT: ans 7 RO ;SAVE PC WHERE INTERRUPT OCCURED 
3 176724 1 ta QSWR INHIBIT ERROR_TYPEQUT? 
senaaeee ° 
es bose 1015 Ete — YES, DON’T TYPE OUT 
564 16 104401 TYPE 
565 061213 SCRLF 
Si nets EM4 TYPE ; UNEXPEXTED RK11 INTERRUPT’ 
S69 002226 104401 002234 TYPE 6S$ $3 TYPE ASCIZ STRING 
002232 o00404 BR 64$ GET OVER THE ASCIZ 
1 --65§: .ASCIZ / AT PC=/ 
002244 645: 
573 O0co44 O10046 MOV RO,-(SP) ;SET_UP_FOR TYPING OUT PC 
574 00224 104402 TYPOC OCTAL PC WHERE BAD 
575 : INTERUPT OCCURED 
576 002250 932777 001000 176662 1S BIT #1000, 3SUR ; LOOP ON ERROR? 
aed CMP (SP)+, (SP)+ YES REPOSITION STACK 
579 O02262 000177 176620 IMP aSLPAOR GO to THE STARTING ADDRESS OF 
. 580 ‘THE TEST THAT GAVE UNEXPECTED INTERRUPT 
58i O02266 032777 O4O000 176644 2S: BIT #40000, aSWR ; LOOP ON TEST? 
582 002274 001401 BEQ 3$ BRANCH 
583 00c276 oo00ne RTI YES LOOP. GO BACK WHER U INTERRUPTED FROM. 
584 002300 oc0000 3$: HALT UNE XPE TED INTERRUPT OCCURED AS 
58s SINDICATED IN THE TYPE OUT.U CAN 
586 : TEST,OR INHIBIT TYPEOQUT BY 
587 *SETTING APPROPRIATE SWITCHES. 
588 002302 000137 oo1s4e JMP aaSTART ?GO BACK TO THE START OF THE 
589 : AM. THUS PRESSING CONTINUE 
590 “AFTER THE ABOVE WIL 
591 ‘RESTART THE PROGRAM 
592 
593 
594 
59s sRESTART AFTER POWER FAIL 
2a THE PROGRAM WOULD RESTART HERE IF POWER CAME BACK AFTER A FALIURE. 
598 002306 aes 
599 002306 104401 002314 TYPE 65S s;1YPE ASCIZ STRING 
600 002312 O00411 4 ‘GET OVER THE ASCIZ 
601 +:65$: .ASCIZ <15><12>/PWR UP, béstarT/ 
602 002336 64s: 
603 002336 o0s000 CLR RO 
604 002340 005001 CLR Ri 
605 O0e342 005201 1S: INC Ri 












MAINDEC-11-DZRKJ-D 
DZRKJD.P11 30-AUG-76 14:4 


002344 
002346 
002350 


Bauer 


002352 
002354 
002356 


OOO rrood 
WO IO CWO 


002364 
002372 
002376 
002402 


2 


002410 
002416 
002420 
O0e4ee 
002426 


Z 


002454 
002454 


a 


002464 


002470 
00247e 


EGFR LGRHS BOER PES ae No ee 


001376 
105200 
001374 


012701 


pow 27( 1006) 


002402 
o024S6 
177771 
001244 


002116 


001162 


001110 


poc004 


ooo004 


NOe 


04-OCT-76 13:08 PAGE 13 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


BNE 1$ 
INCB = RO 
BNE 1$ 


ee ee eT THAT MAL RKIL REGISTERS CAN Be REFERENCED 
TEST 1 TEST STERS CAN BE REF 
:*THIS TEST CHE Eos TF EVE EVERY RY RKLI Re REGISTER CAN BE 
*#REFERENCED WIT A TIME OUT OCCURS THE ERROR IS 
+ #RE a & AN ERROR ne (Re) IS “INGREPENTED. IT THERE WAS 
*#AN ERROR DURING THIS TEST, THE ENTIRE PROGRAM IS ABORTED 
preven beenenecenneaeneneee ence neha eae nena ea enE eee ERED 


+11 


CLR Re 
MOV #T1,SLPERR :SET RETURN 80 ADRES FOR LUP 
sON EROR (SW9) 
MOV #TIMOUT, a84 SET UP OR TIMEOUT VECTOR 
MOV -7,.R0 ‘INITIALIZE RO TO KEEP TRACK OF REGIS REFERENCED 
MOV #RKDS, R1 * INITIALIZE Ri WITH RKDS ADDRESS 
Tl: TST a(R1)+ : REF 
‘IF IT CAN’T BE, TIMEOUT TRAP WILL OCCUR 
:SHIFT THE POINTER 
INC RO sOLL Recs Tee REFERENCED? 
BNE Tl IF NOT, LOOP BACK & REFERENCE NEXT REGISTER 
MOV #BADTMO, a#4 
TST R2 WAST nae AN ERROR? 
BEQ i$ 
TYPE 65S TYPE ASC 


TRING 
BR 4§ ‘GET Oven we ASCIZ 
.65$: -ASCIZ <15><12>/PROG ABORTED/ 


bas: 
om IMP SGETH2 SIF YES, ABORT THIS ENTIRE TEST 
’ BR TST2 ; EXIT 

TIMOUT: CMP (SP)+, (SP)+ 
MOV -(R1)' $REGO ;GET ADDRESS OF REGISTER THAT TIMED OUT 
ERROR 1 sTIPED, OUT WHEN REFERENCING RK11 
TST (R1)+ *REPOSITION POINTER TO THE NEXT REGISTER ADDRESS 
INC R2 :SET FLAG INDICATING ERROR 

T1+2 BRANCH BACK & REFERENCE THE NXT REGISTER 


[ceseeSC IN EL INITIA LATIN 


TEST 2 CHECK RK11 INITIALIZATION 
"THIS TEST CHECKS THAT THE CONTROLLER LOGIC IS INITIALIZED 
:#CORRECTLY RKDA, RKDA, D BE CLEAR AND 

"CNTRL RDY! BIT SET. 

(Ng Tee coe gece oe 
RESET :I A BUS INIT 
MOV $-6, RO :ET COUNT FOR 6 REGISTERS 
MOV aRKER R1 INITIALIZE ADRES 

1S: cre RKC ,aR1 TS IT RKCS? 


:NO 
#200, a(R) ;ONLY BIT 7 OF RKCS SHOULD BE SET! 











SEQ 0026 
















6 


BEBOP REE Bel lola tank tclow Gane iG ; 


o 
oO 
o- 


SEIRREERES SO IRRLOR 


NNN 
b= b+ b+ 
uO 


803 


MACY11 27(1006) 04-OCT-76 13:08 
“76 14:48 Te CHECK RK11 INI TALIZATION SES 00é7 
sy 3 ;BRANCH IF ERROR 7 
005000 2s: TST aiRi) ORE CLE pat REST OF REGISTERS 


Q ; 
ow ™ & Rue, ALL BU a 
ERROR : ; K1L REG er an om 
4S: TST (R1)¢ iio 
1 ie F NOT ue Sy 


Wines ee 
e 
: 
8 





Te a eo " 
HeREAD BACK Me “et eat ConTalns THe Fee a Aa dairies Rat cerie he” 
sgppeneedansnantoneeneseanes en SD eT 
Boog 002574 001110 MOV 81S, SLPERR T SET RETURN, ORES FOR LOPING ON 
we eee again Ber = 
BO! ere eto BIT Sere Be WRITTEN BIT 
C1037 001 162 MOV me, 1 Fee. mcs BIT THA THAT WAS WRITTEN 
1 176424 001164 HOV Gl i Pepa 
Sees 2s: RSL IFT? T Q matTe re ‘ 
001356 — BNE : IF IF for, LOOP baci 8 Check Fhe NXT BIT 
: SEEESSESRSRESELELSSESELES 
we sSTHIS, TES arama SEEPORY BITS 4,53 CAN BE WRITTEN 
gE Nag MA en Ee 2 SKRKRSEESERLESSS 
Wee 002654 001110 tbr: av #15, SLPERR ;SET RETURN ADRES FOR LUPING 
ae ae s. | Y oH RO. . BON Ht 10 BE WRITTEN IN AKCS 
1 176264 ; MOV axes of 
bongo, ene ed s205 fi Tne RECVD BIT SAME AS WRITTEN BIT 
Biacs? 001162 AY fo, SRE aE "EXPCTD RKCS, AIT. THAT WAS MRITTEN 
176344 001164 MOV CS, SREGI :GET co cvp,'B AD 
1 ERROR ‘BIT THAT WAS WRITTEN WAS NOT READ BACK 
028700 000100 es: «8100, RO RAVE U CHRD BOTH GITS. 4 
BO 136e BNE is ' IF NOT, LOOP BACK & CHECK Fue NXT BIT 


PTItitiiitiiittiititiiiiiitititiiiirirtririiiririro rs ss et eter er 


MACY11 27(1006) 


ee pit oan 
Pll 30-AUG-76 14:48 


alae 
~ 
wow 


SATISLFRTSRE SAAT SSASHISee SABO OS ROVE 
ey 


a ee eee 





CO3. 
BPO FRR = 


;*#TEST § 


eh 

: #THEN B 

s#NO I TS . 

Wei itt 
: SCOPE 


térs 
MOV #340, -(SP) 
MOV 864; -(SP) 
RTI 

64S: 
MG 

ewe 

ee : wan 
MOV GRO, $REGI 
ERROR 


1S: CNT. RESET 


CMP #200, aRO 
BEQ es 
MOV SREGO 
MOV dRO, SREGL 
ERROR 10 
BR TST 
2s: DELAY ,10 
MOV #3$ , IRKVEC 
MOV RKPRI, -(SP) 
nov 84S, -{SP) 
us: NOP 
NOP 
NOP 
MOV 8340, -(SP) 
MOV 865, -(SP) 
RTI 
6ss: 
MOV SBADINT, ARKVEC 
3s Br (epae (SP)+ 
: EPROR 1s / 





ATHIS TECH CHECKE TECIBE BIT’CAN BE WRITTEN 8 READ BACK. 
S SET AT PRIORITY 7 


T THAT I T ee pecessct 
CEU es ola tan Ie ches ae ha 


SESLLSESERERSSRLESASS 


2anM 
a 
oF 
“e 
: 
= 


Som 
ag 


ey 
g 
2 
a 


WEARS 
P 
é 
3 


= 
2 


3 
2 
a 


aay 

:SE UNEXPCTD INTRUPT VECTOR 
3 ,EXIT 

“RESTORE ST 


;AN UNEXPECTED RK11 INTERRUPT 


;OCCURED PROBABLY DUE TO FAULTY LOGIC 


SES 0028 





ik i a TTT 


DaRKID.PLL 


iit thiireataed = 


MWMOWOOWOOMOMOM®D 
b-+ b= b= b — © + bb be 
WONMiN £UIMe-O 


SERRRISRES 


a 


S528 SYSs =ZoR28 


ate 
—o-— 


Boe Bee Gb 


11-DZRKI-D 


30-AUG-76 


Ss 


= 
be 
9 


pote 27( 1006) 


001162 


DO3 


04-OCT-76 13:08 ey 
Té CHECK RKCS SSE,EXB,FMT,IBA BITS - 8,9,10,11 
 PRRESPREBPRERFHRRHSH RAKE cE EXB FMT If BITS BS Dil 
th CHECK BKCS "SCE EXE FMT, IBA BITS - 
s#THIS aes ast CHECK Sit tH E tHe Sse, EXB, FMT 8 Fan’ bed! CAN BE WRITTEN 
F ,japeevelesteenseesnensessssesuseenssssnsssassonssssesonssasesoss 
MOV #400, Rk ;INITIALIZE BIT TO BE WRITTEN IN RKCS 
1S ROY a We THAT BIT IN RKCS 
: MOV Se ho aa 
i Pee itt 
RI,RO rif 8 a SAME AS THE 
BEQ 2 T OTHERWISE REPORT ERROR 
MOV 1, SREGO : EH, o1 
MOV dRe, SREGL : RKCS 
ERROR 3 ‘BIT ee WRITTEN (AS IN SREGO) 
2s: ASL Rl :SHIFT TO WRITE NEXT BIT 
CMP $10000,R1 . ;HAVE “ CHE ALL BITS 8, 9, 10, 11 
BNE 1§ «SIF NOT, LOOP & CHECK "Tae Nxt BIT 


RHEL 


EKEFSKAFFSRASSLSEL RAS KERZEREKEERESEHRSEAARE 
wee y OF RK 
as gan ose y Bene To SET THE UNUSED BIT OR THE READ ONLY 
NOT SET THEN OR AFFECT ANY OTHER BITS IN RKCS 


REELLERE 
TS al 

aye RKCS, RO 
MOV #170200, aRO TRY SETT a THE UNUSED BIT 8 RD 
MOV R font, B 
BIC a] RI i Reex"g 
CNP #200, Ri :1S ‘RBY" Fr SET? NO OTHER 

i617 BE SET. 
ay $200. SRE . RKCS 
MOV , $REGI er Yee 
ERROR : 3 SEY’ UNUSED 8 RD ONLY BITS 


3 OF RKCS 
;SHOULD NOT HAVE AFFECTED ANY BITS 


h-5-5-b-ielih-tedalalalalalad-byl-t-byiah-heh-t-tal-h-t-t-lal-1-}-talrd-tclal-4-trigd t-te -+-+- Salad alalalalalalalalalalalaie 

yuan 10 CHECK THAT ’GO’ BIT (0) CaN BE SET 

s*THIS TEST T CHECKS THAT THE *GO’ BIT CAN BE SET, BY PERFORMING 

;#CONTROL RE SEEING THAT THE & IBA SET’ PREVIOUSLY 
jireeebearresesererienenereenenerennnennaenenneenannnnenanans 

MOV ,7(SP 

MOV seus’ -(8P) 

RTI 

MOV RKCS,R1 


64S: 
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ae 27( 1006) *  Secantt -76 13:08 


001162 


hs 
[= ] 


bBo — 


i’ 
- 
os 


001206 


001110 


5 : NIT D RKCS 
1S: #5000, aR a [ors bie’ 5 Bre th fxs" 
es: - Tt 
ii, Ay EVE U, ae LONG FOR CNTRL RDY 
iT BRANCH REPORT ERROR 
he oh des eek 
BPL s1F NOT Loge BAEK’. WAIT FOR IT 
CMP #200, aR1 IF CHK 4 CNTRL 
Beg TSTIL i. red fen bg BeReR 
ERROR : : ert OR FAULT IN 
* we oo Bhr on Rol eRirine NG LOGIC 
ee ee GF Bs Rr scr vets 
f KEE ER SLSREESSLEFE LER SE RRSEE 
:$TEST 11 CK RKCS WITH A COUNT 
s#THIS TES CHECKS THAT RKCS CAN BE CLEARED FROM 7576 THEN A COUNT 
5D BIT) Re. BOE en MEY ROT STANT AN UNDESIRED OPERATION 
eR} cBATAINe THE SO OTTERN RE as WAS WRI E 
gggneseessnse PoPEVSTTeTererrrrtrr rt rs TS 
” MOV #10, STINES ;;D0 10 ITERATIONS 
NOV seus’ (SP) 
RYT 
CYS: Ov RKCS, RO 
MOV 87576, ORO ;SET ALL BITS IN RKCS EXCEPT GO 
CLR iC ER RKC 
CMP , RO IT 
BEQ s YES, BRANCH 
my auch; ade MS 
e inuts Coup NOT BE CLE 
1S: Rov 4" :WRITE THIS BIT IN RKCS 
s s 
es: HOV ie ;WRITE IT 
MOV Rl‘ Re GET BIT THAT WAS WRITTEN 
BIs se00, Re :SET CNTRL ROY BIT 
CNP R2,R3 ;WAS THAT BIT WRITTEN CORRECTLY? 
BEG 3 YES, BRANCH 





E03 


PAGE 1 
CHECK THAT °GO’ BIT (0) CAN BE SET SES 0030 
gt ;SET ALL BITS EXCEPT GO 
t ISSUE BUS_INIT 


ig gS sphentn Orhen FRE eho ERROR 









: 


eiiioinasisisch tah poate tat 


»OwWNOWWOWwWwWW 
b= 0 bs 0 bo be be ee 
WONMUIC Wr 


SSSR RRIERERIONR Bes 


£ 





FO3 
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30-AUG-76 14:48 Tli CHECK RKCS WITH A COUNT PATTERN SEG 0031 
003424 010237 901162 MOV Re, SREGO :GET EPCTD WORD 
Besasa | T4988 PRkon 9° B10 RGF aeRb Bax roe rr we 
003436 o0S205 INC RS. 
crete pease 3S: ay a2 AT - i iENERaTe NXT PATTERN, TO BE WRITTEN 
pies BSF See _ ENE Hf . sObL, PaTTERNS We LEN NXT PATTERN 
: s SRERSERE Eek THAT R RKC BLT 0-18 CAN Be SET 
jeans le 
s#THIS TES oars RKC oT ROU Falta fie so feat AND CHECKS THAT IT 
CAN BE READ BACK CORRECTLY. RO CON Bo CONT T IS WRITTEN 
+ HHEHEMHHHHHHHHHHHHHHEHEHEEHHHHHHHE ~ 
003454 900004 +412: 
DO 345 OL 900001 MOV #1,R0 INITIALIZE RO FOR THE BIT TO BE WRITTEN IN RKWC  ” 
00346 13701 001252 MOV RKWC.R1 
003466 012737 74 001110 MOV #1, $LPERR ;SET UP RETURN BORE 2 FOR 
003474 010011 3 MOV RO, aR1 a THAT BIT IN RKWC 
O0347h 011102 MOV ari, Re 
i he fe, Seber 
003510 Ciba? rete Rov Re’ SREGL MBs READ i prc Minis 
003514 104011 ERROR 11° Bib for NOT READ Teor BrKAT 
003516 006300 2s RO ie t WR IT 
Bo320 | ObLaes Be OOS han AY ace POF BEEN 
: £2 Mkt ITH A COUNT PATTERN PERS 
‘nen ia 1s eee Ke MITH A COUNT PATTERN 
S TEST CHECKS THAT RKWC CAN BE CLEARED, THEN A COUNT PATTERN 
+ ROR 0 TO 177777 IS SRURITTEN 8 CHECKED IF tT a WAS | WRITTEN CORRECTLY 
sutepeecksaeensnetaatansanenieaennenataneetente 
posees 01 000019 001206 MOV #10, STIMES ;:D0 10 ITERATIONS 
01 001252 MOV RKWE, RO 
anes 12740 177777 MOV 8177777, SET BITS IN RKWC 
raat eee Pay “WAS IT CLEARED? 
001405 BEQ 1s YES, BRANCH 
010037 001162 MOV sReG0 :GE "ADRES OF RKWC 
11037 001164 MOV aRO, SREG1 GET RKWC 
003560 104010 ERROR 10 + RKGIC COULD NOT BE CLEARED 
003562 005001 1S: CLR Ri ; INITIALIZE COUNT PATTERN 
boSb4 012705 177773 MOV 8-5, R5 
012737 003576 001110 MOV #23; SLPERR 
00357§ pLie 2s HOV R 980 WRITE THE PATTERN IN THE REGISTER 
1 CMP Ri, Re ;WAS IT WRIITEN CORRRECTLY? 
001407 BEQ 3$ ; YES, H 
010137 001162 MOV R1, SREGO GET EXPECTED WORD 
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003612 010237 001164 
003616 104011 


Bee Boe 


001363 


003630 

003632 012700 9000001 
003636 013701 001254 
003642 012737 
003650 O10011 

Bisse pete 

1 

003660 010037 O01162 
arg a 010237 OO11E4 
0036 104013 
003672 

003674 


se 
=e 
ds 


=: 


g owe Be 
EN 88 


SEREBR BORGO EO odes Tota anes —— rer 


a Gad Soseaserae 
aa 


8 
R 





001110 


001206 


001110 


GO3 ; 
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113. CHECK RKWC WITH A COUNT PATTERN 





nov Re, SREG! :GET WORD THAT WAS cont 
—- 1 DRT AE a nea 
TST14 : EXIT 
3S: Fe R1 tA ment COUNT PATTERN 
BNE 2g UR BAK § & WRITE NXT PATTERN IF NOT 
: : TH ALL 
SRTEST 14) SCHECK THT RAGA. CAN GE SE cneex 
3% 
“THIS TEST FLOATS A ete une RKBA BI TS 0-15 AND CHECKS THAT 
417 CAN BE READ BACK Back CORRECTLY. RO CONT AINS THE WORD THAT WAS _ 
> WRITTEN. 
#1,RO TE ih RO FOR BIT TO BE 
MOV RKBA, R1 
MOV #15, SLPERR 
We BH EROR vou (Sia ib 
1S: MOV RO, dR1 ie Ne ont BIT IN RKBA 
MOV 1 Re 
che ye TTEN CORRECTLY? 
MOV RO, SREGO XPCTD RKBA (BIT WRITTEN) 
MOV Re, SREGI r (BIT BACK) 
ERROR 1 i NOT RED iBrcKT te 6 BIT THAT 
2s: >SHIFT TO oi BIT 
BRE i ioe ALL BITS ARE Te NEXT BIT 
‘BACK & WRITE war BIT 
: SET Ne Tee ee TECK PGA ITH AC cot ae ee 
ius 15 CHECK RKBA WITH A COUNT PA 
seTHE TEST GEGKS THAT FXGA CAN BE CLEARED, THEN IT RUNS A COUNT 
:¥PQ FER 0 177777 RI CONTAINS THE COUNT PATTERN TO BE WRITTEN. 
; ,janpeeebeeneesneenteesnensnsaniey ERX SERRE ARGAE SHER LLESEHRAERERSASE 
MOV #10, TINES ;;D0 10 ITERATIONS 
MOV RKBA 
MOV $177777, aRO ;SET SET ALL BITS IN RKBA 
CLR RO 
Ts ond ‘Has IT CLEARED? 
MOV RO, SREGO iG "ADRES OF RKBA 
MOV aR, SREG! 
ERROR 10 ‘RKBA ROULD NOT BE CLEARED 
1S: CLR Rl ; INITIALIZE COUNT PATTERN 
MOV #-5,R5 
MOV 825; SLPERR 
MOV R1, RO s WRITE THE PATTERN IN THE 
*REGISTER 
MOV JRO, Re 
CMP Ri, Re ;WAS IT WRIITEN CORRRECTLY? 


SES 0032 


Oe pit  sb-tus-76 peg 27( 1006) 


1019 


RRRREP eee Pees SERRE TER SoR EERE RN 


0 = bb =o + > 56 - O— & 2b = 0 0-2 0 = 2 OO D+ Bs BO -2 2 








iss 
ae 
1 
104 
110 
114 
1 
1 
1 
1 
004134 


tte 
ali 
104013 


1402 


Bal 


001110 


001206 


HO3 





rot-OcT-76 13: 20 
TiS CHECK " re A COUNT PATTERN 

Sim Pobe 

Mov SRO SRE Get BORD” 

ERROR 13 :DID NOT RE E arreny THAT 

7 _ : WRITTEN: INTO” me REGI 
- BEQ TSTi6 54x T ‘ oat 

‘ ine By : yi H cent Nay BETTERN IF NOT 
:DONE WITH ALL 

3: EST ie, CHECK THAT RKDACANGE SET 
:&TEST ib rene THAT 

s THIS FLOATS A! ae A KOR AND CHECKS THAT THE WORD WHICH WAS 
3% beet s REEL REE EEE EEE 
térie: 

ar aRKCS ;CLEAR RKCS 

HOV 81 RO. INITIALIZE RO FOR BIT TO BE WRITTEN IN RKDA 

MOV Stile ;SET UP RETURN ADRES 

:FOR rUPING ON EROR 
18: HOV TW ‘WRITE THAT BIT IN RKDA 
i 
Cw Re Was IT WRITTEN CORRECTLY 
MOV SS sReco ENO "GET EXPCTD RKDA (BIT WRITTEN) 
V GREG ; p Rot ReaD ene THE Bh 
1 ; THE BIT THAT 

2s: ASL RO :SHIET ho TOURITECNXT BIT 

BNE 1s if aut BITS ARE I 7k, LOOP 


RLERLLLLLE 


te PP HAY ASML lg pe 


77777 18 WRITTEN AND CHECKED. Ri CONTAINS THE COUNT 
SATTERN Fo! BE WR 


es PT PP eet Mr rr SESARKRAASSASRARARREASALARSSLAA SARL SEAE 
t6T17: SCOPE 

HOV #10, STIMES :;D0 10 ITERATIONS 

MOV #1 , RO ;SET ALL BITS IN RKDA 

: RKDA 
I Seo IT CLEARED? 

hose, rag mo 

ERROR 10° *RKDA COULD NOT BE CLEARED 
1S: CLR Rl ; INITIALIZE COUNT PATTERN 

MOV 0-5, 85 

MOV SLPERR 

MOV R1, ORO ;WRITE THE PATTERN IN THE REGISTER 

MOV ard, R2 


SES 0033 


BOMB Sb-mu-76 Ne 


© EBS aw 
He is her 
cE 





1063 

1 

ites 

1 

ites 

te ia 

; , mies 1 001252 
ies Bis Hae 

1 174 12701 177775 
ips Be e 

1 1 177777 
1 1 

1 1 1 

He Bai, fe 

ioe) Ooe1S Goerie 

tna 220 ites 001162 
1 ll 001164 
1084 104017 

i ese 005722 

tid 234 005203 

1088 O04236 O01366 

1089 

10390 

iSee 

l 

1 

ioe 

1 ooo0004 

logs Goiee Biers ooo 
1099 psc piers 

11) oovess 

it 1 Sat 001250 
Lich Ooises eed 
1104 ebb 

tine 004270 105710 

Lig? 

1108 004300 004737 oOOS4e4 


103 
137° Check Reba WITH A-COUNT PATTERN 


SEQ 0034 





ero om ie. IT aye CORRRECTLY? 
v-RB'SREGL et Cen) We 
ERROR Ree it) NOT NOT Bhce THE PATTERN THAT 
WAS WRI Into” THE REGISTER 
TsT20 : 
3S: if + EKA MENT COUNT COUNT 
BNE 2s UF BAK & WRITE NT PAT PATTERN IF NOT 
$ WITH ALL 
yuan 20 CK THAT 
;#THIS 1Fet CHECKS T fl RKAT’ RKC Baa eck Csr Ee of Eaten BY BUS INIT. 
#RESET INSTRUCTION IS — 
TET T TT TeTeTer rere rt rtr itt rrr erty FELSHFESBRE 
téT20: SCOPE 
ov RKC RO ; INITIALIZE RO TO PRINT TO RKWC 
MOV ROR ;SET UP COUNT FOR 3 REGISTERS TO BE CHKD 
rov Ri Ra 
18: MOV #1 ,(RO)}+ ;SET ALL BITS IN RKWC 
in i$ RKDA 
1 RKDA 
RESET + BUS 5 NI 
2s: ist (Re) (PTD TO BY R2) CLEARED? 
MOV GO ; S OF RE WAS NOT CLEARED 
NOV. RE SREGI et RENTERTE OF THAT REGISTER 
ERROR 17 sRKLI 1 REGISTER (ADRES IN RO) COULD 
3S: TST (R2)+ 31 NXT REGISTER 
INC R3 ;HAVE ‘oft CKD ALL 3 REGISTERS? 
BNE tI1F 
8 2 LEKAEE EELS SER ERELE ELSE REREU SEER EELS RELRRAAKRLRELE 
TEST 21 CKTHAT RKCS, RKWC, , RKDA CAN BE CLEARED 8 BY CONTROL RESET 
5 #RKCS T TO 7560, BKUC, RKDA ARE ALL SET 
2470 1 CONTROL RESET IS DONE AND IT IS CHECKED 
*#IF ALL THESE REGISTERS ARE CLEARED. 
TTT TTT STETETTTTTTESEETSTOSTETELTTESTTITT TT TT TTT Tt TTT tT ttt Tt 
téT21: SCOPE 
MOV #340, -(SP) 
MOV 864’ -(SP) 
RTI 
64S: 
MOV RKCS, RO 
MOV #7560, JRO ;SET ALL WRITABLE BITS IN RKCS 
INC RO :SET GO, CONTROL RESET 
1S: TSTB © aRO ;DID CNTRL RDY SET? 
BMI YES, BRANCH 
INC WAITED LONG? 
BNE 1 *IF NOT LUP BAK & WAIT 
ISR PC, GT3RG GET RKCS,ER,DS 





JO3 


MAINDEC-11-DZRKJ-D - MACYL1 27(1006) O4-OCT-76 13:08 PAGE 22 
-Pl1l  30-AUG-76 14:48 T2i CHECKTHAT RKCS, RKWC, RKBA, RKDA CAN BE CLEARED SY CONTROL RESET SEQ 0025 
1110 004304 104007 ERROR 7 CTRL ROY b Entae Rec SET 
iii 004306 022710 o00Pn0 2s: CMP #200, RO ATER CATR CLEAR RKCS 
itis Bows Bia37 7 ov i, a pores OF 
1115 ty 19033 atts MOV Sea GET CONTENTS ACE cs 
1116 324 14 ERROR 14 :CONTROL RESET DID NOT CLEAR RKCS 
111 33 1 o012s2 3S: MOV R2 
1118 1 MOV Re, 
12 339 i 1 t.. HOV Ri ( ps sSET ALL BITS IN 
HB Bes tiie Be 4. 
oe = RNID: THE *CNTRL- 
He e's Sareea 
Lie? Ror" es oT Seth EraoR Is 
1129 ft oA Be WHERE CNT. RE 13" 
1130 "LOCATED. THIS IS A VERY BASIC ERROR & 
113 350 012703 177775 MOV #-3,R3 $F IT OCCURS GO BACK TO TEST 10. 
1133 004354 005714 ug: TST (R4} ;WAS THE REGISTER CLEARED? 
1134 004356 00140s BEQ $s YES, BRANCH 
113 povses Griese DOLieS A seer ONTENTS OF THAT REGISTER 
uy 004370 i04014 ERROR 14° : RBNTROL BM ID NOT THE 
11 *REGISTER sti RY 
1139 004372 cs: TST (R4)4+ i INCRETENT POINTER TO NXT REGISTER 
1140 374 INC R3 HKD ALL RE 
Hai 004376 001366 BNE 4§ IF NOT, LEE Bak & CHK THE NXT REG 
1143 1 ee me 
tive jATESt “TeTHIS TEST TEST Enns | THAT EACH "ALL REGISTER 15 1s UNIQUELY AORE Y 
114é $41} Te CE RKC ae fee Fie Bee se! TO. ees eal 
11 R REG 13 Checked FOR FOR SEE NED CLEARING BECAUSE OF 
tise ae reves {CHECKED EOR ERRONEOUS, C.ERRING.BecAUs 
1150 ) ADDRESS IN RO IS CHANGED TO THE NEXT REGISTER & THE PROCESS IS 
ll ee lilt ML, alin aml e SaiteAGl 
Liss pow00 tST22: SCOPE 
11 1 000340 MOV $340, -(SP) 
1155 OOW4OE Ole746 O04414 MOV #64S' -(SP) 
1156 oO4412 O00002 RTI 
122 poets 012705 177771 ts MOV #-7,RS SET UP COUNT FOR THE # OF 
1159 ‘ *REGISTERS TO BE UNIGELY ADDRSD 
1160 OO4420 013700 o01244 MOV RKDS, RO INITIALIZE POINTER TO REGIS TO BE SET 
1161 OO4424 012701 177774 1S: MOV 8-4 RI 
ibe 20 1 00 MOV RKCS, R2 
ll 1 1 MOV #17576,(R2)+  ;SET BITS IN RKCS 
1164 1 1 2 MOV 8177777, (Re)+  ;SET BITS IN RK 
1165 OO4444 i INC Ri : RK 


eq 7 * 
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DZRKID.P11 30-AUG-76 14:48 T22 CHECK THAT EACH RK11 REGISTER IS UNIQUELY ADRESSED SEG 0036 
1166 COW 001374 BNE 23 ; KDA 
tt paws 905019 CLR aRO Souear abcrerth MASSE ADDR Is IN RO) 
116 1 001250 MOV RKCS, R2 
1170 CMP RO, Re ;WAS THE CLEARED REGISTER RKCS? 
117 i BEQ ives 
i : CHECK aif IT WAS INAOVERTENTLY 
1174 ita pilees 170200 BIC t! R3 sceRRED varie Aman 
1175 dow470 022703 007576 CMP 87576,R3 , 
i? aes be se 177775 - uM Che) ih cate i P aL 3 Regi stEns pane 
1179 teed 4§: CMP Re, RO ‘as | FOUN EARED Reet eTER SAME AS 
1180 ; THE REGISTER POINTED TO BY Re 
1181 OO4SO6 001404 BEQ cs *YES 
118s iN aN ai ST 
ties COE en N CLM TH 
1185 sPOINT POINTED TO BY 
tig? 004510 011203 MOV aR2, RI oer CON SRIENTS aon REGIS BEING CHECKED 
1188 OO04Si2 010304 MOV R3, RY *FOR INADVERTENT CLEARING 
1189 bove14 005104 COM RY “CHECK IF ANY BIT WAS ERRORNEOUSLY CLEARED 
1190 & 001007 BNE 6$ :IF SO, REPORT 
1191 Ss: TST (R2)+ i INCRMENT PTR TO NEXT REGISTER 
11 BO5201 INC RI *TNCRMENT COUNT 
1185 004524 00136 BNE 4§ *CHECK THE REST 
1195 OO4S26 005720 TST (RO)+ INCREMENT PTR TO THE NXT REGIS TO BE CLEARED 
1196 004530 905205 INC RS *HAVE ALL THE REGIS 
1197 004532 001334 , BNE IF NOT, LOOP BACK 
1198 004534 OO0415 BR T5123 EXIT, IF DONE 
1199 004536 010037 001162 6S: MOY , SREGO -GET ADRES OF REGISTER THAT WAS 
1200 ‘TRIED TO REFERENCE 
1201 OO4S42 010237 001164 MOV R2, SREG1 GET ADRES OF REGISTER THAT GOT 
1202 : NSTEAD 
1203 OO4S4E 011037 OO1166 MOV JRO, SREG2 Gey CONTE OF REG THAT WAS 
1205 OO4SS2 010337 001170 MOV R3, SREG3 + OeT CONTENTS. OF REGISTER THAT GOT 
15s OO4SS6 104020 ERROR 20 OCS T BL TORRESTNG ERROR. TRIED 
1208 *ADRESING RK11 REGISTER, ANOTHER ONE 
1 GOT ADRESED. REGIS IN RO WAS T 
10 *ADRESED ONE, REG IN Re 
211 WAS THE ONE THAT GOT ADRESED INSTEAD 
tele DO4SE0 923702 001250 CMP RKCS, Re 
lel3 OO4S564 001744 BEQ 3$ sRETURN TO THE 
1214 004566 000754 ‘RIGHT POI 
1215 A iil et ie ait a eg 
1216 t ETEST 23 CHECK THAT HI & LO BYTES OF RKCS CAN BE ADDRE 
lel? #THIS TEST CHECKS THAT THE HI & LO BYTES OF RKCS CAN BE 
i518 i irs fh rete Es THAT cAN BE WRITTEN ARE SET. THEN EACH 
1220 VTE OF RKCS IS REFERENCED BY 'CLRB’ & IT IS CHECKED THAT ONLY 
122i THA BYTE & NO OTHER REGIS R BYTE GETS CLEARED 
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DZRKJD.P11  30-AUG-76 14:48 T23 CHECK THAT HI 8 LO BYTES OF RKCS CAN BE ADDRESSED SEQ 0037 
le2z2 - ee 
1353 att yee 1 tSt23 + BGO #-2,R2 ;SET COUNT FOR 2BYTES-HI & LO 
: b0457E eo MOV aie :SET COUNT 
1559 ovese iseue posel4 MOV 
1228 O04b12 RTI 
1229 O04614 64S: sie OA te bee 
1537 Boaedd Bt358} BRSESR Mey BES ERIE. «© EEDFTARLTSEETRN ccd 
1232 004624 012721 177777 1S: MOV 8177797, (R1)+ iSET ALL BITS IN RKUC 
Le ne 013701 001250 ete i Rl TIALIZE PTR TO RKCS LO BYTE 
t5a tay 10s011 25 CLRB sR ie PKeSeL 0 OR HI 
1237 OO%642 010104 MOV R1,R4 
1238 OO4644 017703 174400 MOV JRKCS, RB ;GET RKCS WORD 
1239 OO4650 Oee7Ge 177776 CMP #-2,Re *R U CHKING Hl OR LO BYTE? 
1240 004654 901011 . : 3s me :BRANCH IF HI BYTE 
{Sup rates ath 3 ~ Be ye ape: tk IF Lo 8 BYTE olifs CLEARED 
1243 004664 005037 001162 CLR $REGO 
evs Oo 70 010337 001164 MOV R3, SREGI cr mt "REC, 10. BYTE. 
1 soe de: ee 21°S AMEN Teie3 Yo aones. RORES BCL CLR coe CS 
4 004676 000411 BR 4 caddies ie 
1249 004700 042703 000377 3S: BIC #377,R3 ;MASK LO BYTE 
1250 004704 001406 BEQ 4§ 0K IF HI BYTE 
1251 004706 005037 001162 CLR $REGO GET EXPCTD RKCS, HI BYTE 
1252 GET WHAT WAS ACT RE 
1253 O04712 SWAB 
1254 004714 010337 001164 MOV R3, SREGI 
1255 004 104023 ERROR ;ALL RK11 REGISTER’S WERE LOADED WITH 
1256 17S THEN TRIED TO ADRES & CLR RKCS 
1257 *HI BYTE IT COULD NOT BE CLEARED. 
1258 OO04722 012700 177774 ug: MOV #-4 RO s INITIALIZE FOR REST OF REGISTERS 
1259 004726 013705 Oo1es0 MOV RKCS, RS * INITIALIZE POINTER TO RK 
1 004736 cS: TST (RS)+ j INC PTR TO NXT REGIS 
1261 INC : GS DONE? 
1262 736 001417 BEQ 6$ ;1F YES, GO & ADRES TO CLEAR RKCS HI BYTE 
1263 740 011503 MOV RS, R3 : sIE NOT, set CONTENTS OF THE REGIS 
Lees 004742 005103 COM R3 ; COMPLENEN ME T THE CONTENTS, SHOULD BE 
1267 004744 001772 BEQ S$ ; PREVIOUSLY SET TO ALL 1" S IF IT’S 
1268 0 BRANCH, IF NOT REPORT 
1269 OO4746 010137 001162 MOV R1, SREGO ;GET afk CS"BYTE-ADRES WHICH WAS TRIED 
E71 004752 010537 001164 MOV RS, SREG) GET BORE S OF REGIS WHICH GOT ADRESED 
1e73 004756 012737 177777 OD1166 MOV #177777, SREG2 1a EXPCTD CONTENTS OF REGISTER 
1275 004764 005103 COM R3 GET CONTENTS RECVD FROM THAT REGIS 
1276 OO4766 010337 001170 MOV R3, SREG3 
1277 004772 104024 ERROR 24 ALL RK11 REGISTERS WERE LOADED 





MO3 


MAINDEC-11-DZRKI-D macy LL 27(1006) 04-OCT-76 13:08 PAGE 25 

DZRKJD.P11  30-AUG-76 14:48 T23 CHECK THAT HI & LO BYTES OF RKCS CAN BE ADDRESSED SEQ 0038 
1278 sWITH 1 S. RKCS are iin 
{529 Fore TRA RMeER 
1281 [USING *CLRB’, BUT REGISTER (ADRES 
1 . . IN 
1283 earl te a ohn ) GOT CHANGED AS A RESULT. 

$: R ON PTR TO RKCS H 

ie HRs Se « i ETOH A SS EE Tacs 
: posoo2 001316 BNE 2s i MERE fot B BRARICH BACK 
1290 o LKARKRKERE RRA A RELA AA RSARERAAE RES ERAE RAL L AE LE LAE KERALA RAE LA LE RLES 
1 ius 24 CHECK THAT HI & LO BYTES OF RKWC,BA,DA CAN BE ADDRESSED 
1 j#THIS TEST CHECKS T THAT BYTE _OPERRTI ONS ON RKWC, RKBA & RKDA CAN BE DONE 
1334 tel) REG POINteD TO’ BY Re OR ESET TG 1277 
{ #2) De cisteR Orig The a That Byte SRD NO-OTRER ByiES CET CLEARED 
a £72 RORURES™ FPaTPHCTDUG Feat edn MECTE'GE'Boe. "= POE 
ica ; ceasneddaatebetabistsSitetiapiartiaobaintetetinetane 
1300 cea ieee ,-(SP) 
1301 OOBbIS BIseHe bosaeD MOY «see -(8P) 
1302 oodoo2 es RTI 
1304 012704 177772 : #-6,R4 ;SET UP COUNT FOR 6 REG-BYTES TO BE ADRESED 
Lie 005024 013702 fee me MOV ey INITIALIZE POINTER TO RKWC 
1 Bpep ad tS7bt (58 : MOV RKCS, R1 
1308 o05040 eat 007576 MOV #7576, (R1)+ ;SET RKCS BITS 
1303 012721 177777 2S: HOV #177777, (Rl)+ RKWC 
13 Bebee | BOT SPM ie OBR : RKBA 
1313 105012 CLRB ss aR ADDRESS & CLEAR REGIS BYTE UNDER TEST 
1315 005056 O1 MOV R2,RO 
13g ane ote eae aa “— * ADRES THAT TT BELONGE TO _— 
1318 OOSO64 011001 MOV RO, R1 °GET T GIS WRD 
i333 eng 581003 ou. BNE i.e is ite eho BY = 
32h g05074 ove70 177400 BIC #177400, Ri > WAS oe HI BYTE 
Hes Oisie lero oor? = ag: a77,R fa oe 
1325 Oos1i8 10237 oo1162 ROY Re, SREGO ‘e a het PEER, THAT WAS “THR ae 
i, SB Sarr oo "ie ee tee 
He is Bee coun uss Rhee comes or oe 
1331 005130 104025 : RROR 25° STRIED TO ADRES chao, REGI R BYTE 
1333 . Se eS ONEER REGCBUTE’ INLER HSE)” COULD 
1332 NOT CLERR IT. 
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174112 
007776 
001162 


007776 
001166 


001164 


001166 


NO3 


04-OCT-76 13:08 PAGE 26 

T24 CHECK THAT HI & LO BYTES OF RKWC,BA,DA CAN BE ADDRESSED 

S$: MOV JRKCS, RI 
cH "7 ; :MAS BKCS ERRONEOUSLY CLRD? 
MOV R2, SREGO BORE OF toneseb Telit THAT WAS 
MOV 47776, SREGL GET EXPeTB RKC 


6S: 
7$: 


12$: 


10S: 


R1,SREG1 
#377 , SREG2 


#1,R1 
12 


R3 
R3, SREG3 
2l 


-SBTTL END OF PASS ROUTINE 


er en re ee ee 


t KINCREMENT THE PASS NUMBER ($PASS) 
:#INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 


rd RKi} REED WERE LOADED WITH 1°S 
; TRIED TO ADRES & LR "REGIS-BYTE’ (IN ER MSGE) 
;RKCS GOT Cee AS A RESULT. '"<(RKCS) 
;CONTAINS EXPCTD RKCS. ‘RKCS (RECVD)’ CONTAINS 


*RKCS_RECVD 
SET COUNT FOR BYTES 

Pe ee PRED By TE (PTD TO BY Re) 
*SAME AS raid Rep BE CHKD (PTD TO BY R1)? 
IF YES, DO NOT CHK THIS BYTE 


;STRIP WORD ADDRESS FROM BYTE ADDRS 


;1S BYTE TO B CHKD LO OR HI BYTE? 
;HI_BYTE-BRANCH 
;MASK HI BYTE 


;MASK LO BYTE 


GET ADRES OF REG-BYTE THAT WAS 
: TRIED TO B ADRESED & CLEARED 
:GET ADRS OF REG-BYTE THAT GOT 
ZADRESED INSTEAD 

:GET EXPCTD CONTENTS OF REG-BYTE 
: THAT GOT ADRESED 


;GET CONTENTS RECVD FOR THAT REG-BYTE 

SALL TRS WERE LOADED WITH 17S. 

iy te ER MSGE) 
A_RESULT 


MSGE) IS THE EXPCTD CONTENTS 
REG- By Te-RECVD’ IS THE CONTENTS RECVD. 
INCREMENT PTR TO NXT REG BYTE 

pALL BYTES CHKD? 


OOP BACK 
INCREMENT PTR TO NXT REG BYTE TO B CLRD 
SAL BYTES CLRD? 

LOOP BACK 


SEG 0039 
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DZRKID.F 





ll  30-AUG-76 14:48 END OF PASS ROUTINE SEQ 0040 
s ATYPE “END PASS 8XXXXX" (WHERE XXXxX IS A DECIMAL NUMBER) 
: IF A MONITOR GO TO IT 
:#IF THERE ISN'T JUMP TO START 
SEOP: Sc 
0011 CLR TSTNM 33 THE TEST R 
901 CLR TIMES +: ZERO NUMBER OF ITERATIONS 
11 INC 5 : NCRENENT THE PASS NUMBER 
100000 001190 IC $100000,SPASS ::DON’T ALLOW A NEG. NUMBER 
seorct C (PC)+ P ;;LO0P? 
: Ps de ;;YES 
MOV SDORGN. RESTORE COUNTER 
SENOCT: _HORD | l 
$e SENOMG $3 “END PASS &” 
MOV $PASS, -(SP) ae spAss FOR TYPEQUT ts Onli 
TPE SENULL Free erie ANARACTER 
SGET42: MOV oie, h : GET HONTT ROORESS 
Reece He THE Nore 
SENDAD: JSR PC, (RO) ::G0 TO MONITOR 
NOP 3 3 PAVE ROOM 
NOP 3;FOR 
NOP s;ACT11 . 
JMP a(PC)+ ; ; RETURN 


SDOAGN: 

SRTNAD: . START 

SENULL: -BYT -1,-1 9 »:NULL CHARACTER STRING 
: :ASCIZ «18><12>/enp pass’ #7 


-SBTTL GT3RG: ROUTINE FOR GETTING RKCS, RKER, RKDS 


;GT3RG 
: SUBROUTINE FOR TRANSFERRING CONTENTS OF RKCS, RKER, RKDS 
TO S$REGO, SREGL, SREG2 RESPECTIVELY BEFORE TYPING OUT’ AN 


z : JSR | PC,GT3RG 
1439 o0s4e4 917737 173620 


feat 005432 01 f 
my ese Bae | 
144 
1444 
L445 





CO4 


Cah ORR cere Tange ore) PRT Pe UTNE FOR GETTING RKCS, RKER, RKDS SEG 0041 


TO CHANGE THE DELAY TIME (EXMP: SHORTER DELAY TO 


ig iy phe Pa TS DS "N’ FOLLOWING "DELAY’ SHOULD 


iS .SBTTL GTYRG: ROUTINE FOR GETTING RKCS, RKER, RKDS, RKDA 
ee — 
ied SE iS NTRS “OTE E ee PES 
ies ee ERROR peSSAE: 
lao p0s4so 737 wid ica Tse 
1455 bos¥ey teen oes 001170 Hoy Sf ea 
1458 RTS 
148 
1953 .SBTTL DELAY: TIME DELAY ROUTINE 
1461 sDELaY 
465 THIS ROUTINE PROVIDES A VARI TINE DELAY. THE CALL FOR THIS 
| 1463 QUTINE 1S AN ‘TRAP’ I TION. 
454 N IS ANY OCTAL NO. FROM 1 TO 177777 
46S pase Is 7. SN US (CONVERT NTO DECIMAL) FOR 11/20 
466 
467 
468 
| 3 
1471 O0S¥64 017637 000000 001264 mat MOV (SP), TIMER sGET AMOUNT’ (N) FOR WHICH 
| 1972 005472 062716 Od00002 82, (SP) ; DELAY IS TO BE PROV DED 
| He DOS7e noe 001264 1S - TIMER + COUNT DOUN nt too wa Fighter i ol 
| [u75 I : i 
| 147— O0SS04 90000e RTI RETURN TO MAIN PROGRAM 
| qu7g 
i 1479 
| 140 
eH .SBTTL CON.RESET: CONTROL REST ROUTINE 
1483 ; CON. RESET 
| 1 ; THIS BNO WAITS F FOR 
8 ES ANGELS SUS EAT ROHS 
| 1467 ; DOE hot 1 Ser WITHIN 4 contain Tne: an ERROR SSAGE 
| 1489 ea R RKCSEYYYYYY 
| 1480 !1$ GIVEN. NOTE THAT XXXXXX IS THE PC WHERE 'CNT.RESET’ OR ’CNT.RDY’ 
| 4491 15 CALLED. 
| We SCALL: CNT. RESET 
(4494 “mes ; 
| 1495 
a: 
| J46e .SBTTL CNT.ROY: WAIT FOR CONTROL READY ROUTINE 
 qw99 
| 1500 ;CN. ROY 
‘1601 ; THIS ROUTINE WAITS FOR THE CONTROL READY BIT TO SET AND MHEN IT 
| 





ee ES ST 
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a 
= 


bec 2 ieee Co 


Ba) 2 


-DZRKI-D 
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ie 


Oo 
oe 
#Ne 


MACYL1 27( 1006) 
14:48 


isto aii70 


1170 
173814 


001170 
020000 


173366 


DO4 
04-OCT-76 13:08 PAGE 29 
CNT. ROY: WAIT FOR CONTROL READY ROUTINE 


RO 
;SETS . IF WITHIN A CERTAIN TI TRL ROY DOES 
ie ze OR ii4s 15 REpOR RAT oy ae te an MS FOR 11/720 
in RS: Sov" 


ITs 

AN 
F 
CNT.ROY 
MOV 


#1, ORKCS ; ISSUE A CONTROL RESET 
MOV 8-300, SREG3 i ePUE COUNT 
in oe ee ¥+4 ;SKIP OVER CN. ROY 
1S:  TSTB C sDID CNTRL-RDY SET? 
I 3. YE IT 
G3 WA ONG? 
2s I 18 13, asur oot ert SyeccuTs 
= : LIF yee" aKTP YPEOUT 
TYPE 65S ;; TYPE ASCIZ STRING 
R b4§ *:GET OVER THE ASCIZ 
bigs: -ASCIZ <«15)><12>/PC=/ 
“mov (SP), =(SP) 
SUB (SP) 
GO TYPE PC IN THE MAIN PROGRAM, 
TT Te STRING 
TYPE 67S 237 ASCIZ STRING 
BR GET OVER THE ASCIZ 
ii8?: .ASCIZ 7 RKCS=/ 
“mov |RKCS, -(SP) GET RKCS 
TYPOC GO TYPE IT 
3s RTI *RETURN FROM THIS 


;THIS PART OF THE PROGRAM CONTAINS THE COMMON ROUTINES CALLED 
;FROM THE SYSMAC.SML PACKAGE 


-SBTTL SCOPE HANDLER ROUTINE 


ss LEEELELEELEELSELLEL EERE EAA LEEL LEELA LLLE LEAL EL LLELALLLLSELELE 


: THIS poe 43 CONTROLS THE LQOR ING OF TESTS. IT WILL INCREMENT 
; STSTNM) INTO THE DI Y REG. (DISPLAY<7:0>) 
OAD SERFLG) INTO DI Y¥<15:08> 


: L 
:#AND LOAD THE ERROR FLAG SPLA 
*#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE 
2 #SW14=1 LOOP ON TES 
-*SW11=1 INHIBIT ITERATIONS 
+ #SWO09=1 LOOP ON E 
: #SWO8=1 LOOP ON TEST IN SWR<7:0> 
:#CALL 
;# SCOPE ; ;SCOPESIOT 
SSCOPE: 
CKSWR ;;TEST FOR CHANGE IN SOFT-SWR 


SEG 0042 


E04 


ie Pit abe pong 27(1006) 04-OCT-76 13:08 PAGE 30 








DZRKID.P 30-AUG-76 14:48 SCOPE HANDLER ROUTINE SEQ 0043 
932777 040000 173276 1S: BIT 881714, aSWR $3 LOOP ON <PRESENT TEST? 
- eeeneSTEnT OF C OR THE XOR +éeb rYTTT) 
co oa Hea REO RNa 
013746 000004 MOV SSERRVEC <igP) 1 VE _ THE CON ERROR VECTOR 
8655-7: 
fees Whee fue mE ra Tea, 
1566 neta o00004 MOV ($P)¢,GHERRVEC s3RESTORE THE ER ERROR V VECTOR 
i 8 ze cs: ere (SP) (SP)+ . 1 Tone ie Eas a RA, TINE OUT 
1253 Beeson sees BR * hecemenaeals | SRP CENT fest 
1571 005702 6$:;88888END OF CODE FOR THE XOR’ ‘TESTER 
187 8 g3e777 000400 173230 grr sg TO8, aSWR FON, SPEC. TEST? 
1374 00571 127737 173222 001102 CHEB OSWR, STSTNM Hi THE RIGHT TEST?  SWR<7:0> 
1576 10 73 001103 2s r3r8 SOvER. ier OCCURRED? 
1578 Besse 12373 001115 001103 CHP Seenex,SERFLG sTARt, EORS FOR THIS TEST OCCURRED? 
1580 ppeaaB 03277? 001000 173172 Bit $31109, aSHR 3 LOOP ON, ERROR? 
i 608750 O17 a7 001110 001106 7S HOV ,SLPADR ;;SET LOOP ADDRESS TO LAST SCOPE 
1584 005760 105037 001103 4§ CLRB :;ZERO THE ERROR 
1585 goe7eH S0s037 001206 cu stires $3 CLEAR H NUMBER TITERATIONS TO MAKE 
1387 ooe7e Gae777 004000 173140 3S: BIT aG1T11, 2SMR ; s INAL IT ITERATIONS? 
1589 006002 TST $PASS 2: IF FIRST Pass OF PROGRAM 
159] cee Fe ont 5 INCREMENT Ffenat ion COURT 
159¢ 006014 cP TIMES, SICNT ee mre re eal Tons MADE 
1594 ppebea 1s MOV $1, SICNT + REINITI oon ON COUNTER 
1595 MOV T,STIMES 3;SET OF ITERATIONS TO DO 
leg SSVLAO: TW? te SLPROR i et es 
tees Bpenes mY i ESCAPE ADDRESS 
1 i + ALL (1) ON NEXT TEST 
1601 Boeoee SOVER: Soe StefhN dOISPLAY ae one 
1e55 1 ATT -oebaanncr FIXES ese 
1608 ested SMXCNT: 5O . NUMBER OF ITERATIONS 
1606 
a4 33 SSRKKSSKSKARERAAARASSRAARAASASERA RELL RSLS LEAR KSEA LAA RHRERALARAAERARAERKE 
1603 .SBTTL ERROR HANDLER ROUTINE 
161 ; #SWIS=1 HALT RROR 
161 1321 tNIBt? ERROR TYPEOUTS 
1613 + eeulO=1 BELL ON ERROR 
De ae 


FO4 


MAINDEC-11-DZRKI=D MACY11 27(1006) O4-OCT-76 13:08 PAGE 31 
OZRKID.P11 


30-AUG-76 14:48 ERROR HANDLER ROUTINE 
lie i eeuroet LOO ON ERROR TO PREVIOUS ‘SCOPE’ 
: 4 
161 i 3a6 % SERRTYP SN EE Aon 
eis 006104 104407 SERROR: CKSWR ;CHECK FOR SOFTWARE SWITCH ENTRY REQUEST 
1619 006108 105237 001103 7S: INCB  S$ERFLG :SET THE 
1p erates We 173020 SV sf BDISPLAY SDNY LET ihe, Fes 02 70. Teng FLAG 
te54 Beeld Bheese BBLS is; fre ERT ERRPEAY TERA IETERE PR ERROR 
is ols uy as Hoy (SP) ‘GET ADDRESS OF ERROR INSTRUCTION 
l 140 11 1 Bettis MOVB SITEMB STRIP _AND SAVE THE ERROR ERROR ITEM CODE 
He REISS siggy mm veret gs ai ich Heesttel 
1628 006156 004737 SR RRTYP © USER ERROR ROUTINE 
1629 Ooeles 0440 oD at = Tire Peer ait a 
t 1 Ooeie 5777 ode : BP son i SKIP If EON INUE 
1635 eae retin OKSUR : CHECK of SOF THRE SWITCH ENTRY REQUEST 
ies nee Relate 010000 172732 3S: I #SW12, ISWR SH 1 
1 1 eat 001106 MOV (SP) sADIUST RETURN ADRES FOR SW 
i pobe14 B3e772 001000 172716 I c , aSWR : ON ERROR SWITCH ee 
1639 006224 013716 001110 MOV PERR, (SP) FUDGE RETURN FOR LOOPING 
1640 006230 005/37 001210 4S: qs = CHECK FOR AN ESCAPE ADDRESS 
16 ieee 013716 001210 MOV SCAPE, (SP) “FUDGE RETURN ADDRESS FOR ESCAPE 
1b43 ppeSae oo00d2 cs: RTI * RETURN 
iets .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
1647 8 Fee TINE Uses The “LIEN CONTHOL BYTE” (SITENB) 10 DETERMINE 
1648 pony ROUTINE USES. TH Erte CONTROL BYTE” {STEMS TEMS) TO DET DETERMINE WHICH 
1649 5,10 BE _REPOR OBTAINS THE TERROR OR TABLE (SERRTB), 
1650 HE APPROPRIATE. INFORMATION CONCERN] 
1652 006244 am 
1653 oo6e44 sowHo1 001213 TYPE ASCRLE $+ CARRIAGE RETURN” & “LINE FEED” 
1655 Boece o0S000 CLR RO’ ::PICKUP THE ITEM INDEX 
1656 006254 153700 001114 BISB d#SITEMB,RO 
1657 006260 001004 BNE 1S $3 i 1P ITEM NUMBER 1S ZERO, JUST 
B53 006262 01374 001116 MOV SERRPC, - (SP) CAVE SERAPC FOR TYPEOUT 
1ounde TyPOC ; HG) Type--oc art ASCII(ALL DIGITS) 
eS ooe300 1S: DEC e {ADJUST THE INDEX THAT TT ul WILL 
ASL RO 3 WORK FOR T 
06300 ny a 
906 30 boe70p 001272 BBD RSERRTB RO :;FORM TABLE POINTER 
1 eat MOV (RO)+, 28 ::PICKUP “ERROR MESSAGE” POINTER 





001404 i BEQ 3$ ;;SKIP TYPEOUT IF NO POINTER 





GO4 


MAINDEC-11-DZRKJ-D ACYL 27(1006) | 04-9C7-76 13: 
q:48 ERROR OBE OUT HOLT INE 


DZRKID.P11  30-AUG-76 1 OR MESSAGE TYPE SEQ CO4S 
T 33] HE 
001213 aah ORL iTeanon PESEace PO INTER goes. vere 
006334 3S: Hoy {R0)+, 4s 5 PICKUP SpATA HEADER” POINTER 
a EN. ES ;3TYPE THE “DATA HEADER” 
PROGR? oo1e13 + MPO Oe ERATE HRBOBBT URRANTER, PRES HERS 
SS: MOV (RO), RO uate “DATA TABLE” POINTER 
BNE 3;G0 T DATA 
001213 on Fae Of SRRIAGE RETURN" & “LINE FEED” 
-_ RTS pe i CARR 
° MOV @(RO)+, -(SP) + SAVE a(RO)+ TYPEOUT 
TYPOC He ==0eTAL 8 ASCII(ALL DIGITS) 
TST (RO) T i 
Q 6S IF 7. 
006374 TYPE 48s :iTYPE TWO(2) SPACES 
coo gS: LASCIZ 7 / a ae SPACES 


-SBTTL TTY INPUT ROUTINE 
= SE-SEE J-  g  9  g 2 E  S E E atH 


‘ENABL LSB 


ELLLLLLLALLLLLLELLALLLARAALLL LLL ELELE 





as th G 

1340 ee, aE SuITCH REGISTER R CHANGE ROUTINES WILL 

i :#SERVI ct Roe Fi R CHANGE IN IN SOFTWARE autteH REGISTER TRAP CALL 
1555 O06400 022737 000176 001140 gercen: CAP sdurec Yon OE 3351S THE SOFT-SWR SELECTED? 
1704 001074 ae 15S *BRANCH IF NO 

1705 O06410 105777 172530 ag Tks CHAR THERE? 

1706 006414 100071 BBL 1 :IF NO, DON’T WAIT AROUND 
1707 OO6416 11774 172524 MOVE  a$TKB,-(SP) ssgave CHAR 

1708 OO6422 042716 177600 BIC #tC17?, (SP) He TRiP-OFE THE ASCII 

17039 006426 baabo? CMP 87, (SP3+ *:1S IT A CONTROL G? 

1710 O06432 001 BNE > NO RETURN TO USER 

171 Sbe4 4 001134 000001 CMPB TOB, #1 > ARE ING IN AUTO-MODE? 
171 1456 BEQ 1s$ :BRANCH IF YES 

1714 OOG444 104401 125 T ‘ G s;ECHO THE CONTROL-G (1G) 
1715 006450 104401 132 SGTSWR: T : CURRENT CONTENTS 

i515 a) iis le we GHREG,-(SP) SR PE oCraL ASCII CALL DIGITS) 
He aoe gee Oy, ea 

tat Heer Ts A ne 

1721 i 172446 7S: TB  a$TkS He ? 

i7ee 006476 100375 BPL 7§ :: IF NOT TRY AGAIN 

1724 1774— 172442 MOVB TKB,-(SP) ::PICK UP CHAR 

1725 eta baerie 177600 BIC #tC17?, (SP) ::MAKE IT 7-BIT ASCII 


vont 27( 1006) 
14: 


SASH Ren 


— 
T 
b-b= 


7 

T 
~ 
Oo 


b-2B 26» b= Bs Bs 


Sa 
a 


Pine 


oe 


am © 


ses 


A 


peas ie 


= 

+ 
. 
Ay 
- 


PEER ORAS 


si 


: 


R 


Ry 


8 


oes 


i 


EORSSEERrereen 
3 


agsepeoeailclepabioeaeyz? 
8 


5 


S. 


SERARRAohorapaacnrn tun peane 
sesctt 
mus 


SFE 
Bass 


o 
-_ 
8 
= 
oO 
= 
W 






Hy tN 


10$: 


— pe 

aa 
wa 

ee e« 


ies: 


178: 


18S: 





tt YES, ECHO CONTROL-U (1U) 


I 
HBS rere aad 


3318S IT A_<CR>? 
IF " 
YES ety “ FIRST CHAR? 


OND F> 
ny KBD INTERRUPTS? 


SERE-ENABLE TTY KBD INTERRUPTS 


sere 


- DSABL 


55 SESE ARSE AE SE 36 4 9 Sg 9 9 A A A EEE AE EA EEE 
THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 





INGLE CHARACTER FROM THE TTY 
S_ON THE STACK 
BIT STRIPPED OFF 


apt 


— 
wm 
+ 





PATIOS C11 -OZRKI-0 
OZRKID.P11 30-AUG-76 


p+ 


dabsas 


b-4 b= Bt hh hah 


Pte iisisiopr ert 


PesTeeTrelsslesleslecleeles] 
bs pn hn 2 be pe ee 
ONOW CWO 


D4 bh + hs + sb hb = Bs 8s ee bs pe he Bs bs he he 


SRSRSRESS ESM ESOS 


atelectasis 
comers 


Sszkhes coo sRCE TO SOO 


010346 
012703 007110 
0071 


~ 
A 
pag 


See 
— 
Zane 
— Iti 
Pe) 

—_ 

fT 

~ 

fw 


a8 
RR 


-S 


u 


a8 


Seed eel ie oad 


base eash 
S 


poet 27( 1006) 





ities 104 
thy theurerontine POE 


es: TSTB asTKs 
TKB,-(SP) 


BIC eae 


MP 
1§ 
3$: re (SP), #140 


MP 4(SP), #175 
#40, 4(SP) 


SEQ 0047 
3 sWAIT FOR A CHARACTER 


es IT 2-B1T ASCII 
TA -6 

ttTF NOT D IT 

YES, RE Ase 

iz IT as Mi AL nent 

+ PY 

{MAKE IT CASE 


RTI TO USER 
s ry Be Seaneueeeennnnenennanenesdanunes50000uneeennnneessesaess 
sATHIS. ROUTINE WILL INPUT A STRING FROM THE TTY 


i IN 
r URN HERE 
SROLIN: MOV R3,-(SP) 
1$: MOV aSTTYIN,R3 
2s: CMP SSTTYINGS. ,R3 
BLOS 4 
ROVE’ (SP)+, (R3) 
10S: COPE #177, {R3) 
4§: aee SQUES 
BR 1$ 
3$: MOVB (R3), 9S 
TYPE 
CMPB «= s«IS, (R3)+ 
BNE 
CLRB 3s - 1 (R33) 
TYPE SLF 
a 
Noy 4(SP}.2°SP) 
MOV aSTTYIN, 4(SP) 


3 3 

~ 
ace 
@aoo 


TTYIN: 
ie ey y" 7415><12> 
G: .ASC <15><12> 
SMSWR: .ASCIZ (1) (1B) SUR = 
SMNEW: .ASCIZ / NEW = / 


-SBTTL TYPE ROUTINE 
: KROU 


5s INPUT 8 air " Ray THE T 
33 SS _OF T CHARACTER WILL BE ON THE STACK 
3; TERMINATOR WILL BE A BYTE OF ALL C’S 


na 


tS A0JUST THE STACK AND PUT SS OF THE 
He Hey ASCII CHARACTER ON IT 


+ OF OA 

Prone for ASCII CHAR. TO TYPE 
pp: 28 BYTES FOR TTY INPUT 
ONTROL ® 


Oz 


TERMINATE WITH A O 


pescesspeussessesesnegessensssccosnssnnesuaneunessueseenesucneae 
TO TYPE ASCIZ MESSAGE. MESSAGE MUST YTE. 
i+ i "ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LIne FEED. 


JO4 


MAINDEC-11-DZ2RKI-D MACYL1 27(1006) O4-OCT-76 13:08 PAGE 3S 
OZRKID.P 30-AUG-76 14:48 TYPE ROUTINE SEQ oo4e 
l CONTAINS THE CHARACTER TQ BE SED AS THE F LER CHARACTER. 
1 Not sritts CONT INS THE NUMBER ILLE CHARACTERS 
1840 LLC CONTAI CHARACTER TO FILL AF 
1 
1 #1) To beING A TRAP INSTRUCTION 
aia 1 TYPE  ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
a tee 
ies? 7% MeEHOR 
1649 ae 
1850 007154 105737 001157 STYPE: TSTB STPFLG i118 1S THERE. A TERMINAL? 
ied 657 188 Rear HALT bi FaLT HER HERE IF NO TERMINAL 
1853 007164 000407 BR 3 + LEAVE 
1858 007166 01004 1S: MOV RO, -(SP) SAVE RO 
1 0071 1 ooono2 MOV d2tSP),RO tiger ADDRESS OF ASCIZ STRING 
1856 007174 112046 2S: MOVB  (RO)+,-(SP) CHARACTER TO BE TYPED ONTO STACK 
18, BOSOR  BpESoe ene ‘a )+ + 3B TINATOR POP” eee Tee STACK 
a 
1828 Bos 509 sei 60S: (3 RO det RO 
1860 007204 062716 ooD0002 3$: ADD #2, (SP) *:ADJUST RETURN PC 
1861 007210 Oo0000e RTI + RETURN 
1@62 007212 122716 000011 4s: CMPB os BHT, (SP) ::BRANCH IF <HT> 
1863 007216 001430 BEO 8S 
1864 907220 122716 00200 CMPB =s#CRLF, (SP) ;;BRANCH IF NOT <CRLF> 
1865 1006 BNE c$ 
1866 007226 005726 TST (SP)+ ;;POP <CR><LF> EQUIV 
1867 14401 TYPE : A CR AND LF 
1868 cited She 
1869 1 007370 CLRB § SCHARCNT ;;CLEAR CHARACTER COUNT 
1870 007240 000755 BR a ::GET NEXT TER 
1871 007242 004737 007324 Ss: JSR C, STYPEC 260 THIS CHARACTER 
1872 007246 123726 001156 6S: CMPB »=«ss«sSFILLC,(SP)+ $315 IT TIME FOR FILLER CHARS.? 
1873 007252 001350 BNE 2S :: IF NO GO GET NEXT CHAR. 
187% 007254 013746 001154 MOV SNULL , -(SP) 53GET # OF FI CHARS. NEEDED 
1876 007260 105366 000001 7$: DECB =-1(SP) *:DOES A NULL NEED TO BE TYPED? 
1877 0726s 906770 T 6$ ::BR IF NO--GO POP THE NULL OFF OF STACK 
1 007324 PC, STYPEC :G0 TYPE A NULL 
1879 007272 105337 007370 DECB  SCHARCNT ::DO NOT COUNT AS A COUNT 
1 007276 000770 7$ ; ;LOOP 
1882 sHORIZONTAL TAB PROCESSOR 
1884 007300 112716 oo0040 8S: #’ , (SP) ; REPLACE TAB WITH SPACE 
1885 007304 004737 007324 9S: JSR Pc, $TYPEC ::T 
1886 007310 132737 000067 007370 BITe #7, SCHARCNT : BRANCH off NOT AT 
1888 005726 TST (SP)+ 3 ;POP SPACE OFF STACK 
1889 Wie 000724 2s T CHARACTER 
1890 007324 105777 171620 STYPEC: TSTB  a$TPS EMAIT UNTIL PRINTER IS READY 
1891 007330 100375 BPL STYPEC 
1892 007332 116677 oD0002 171612 MOVB  2(SP). aSTPB ;3LOAD CHAR TO BE TYPED INTO DATA REG. 
1893 007340 122766 000015 oo00002 CMPB sR, 2 SP) 21S CHARACTER A CARRIAGE RETURN? 


KO4 


04-OCT-76 13:08 PAGE 36 


TYPE ROUTINE 


SEG 0049 


MACY11 27( 1006) 


30-AUG-76 14:48 


MAINDEC-11-DZRKI-D 


OZRKID.P11 


beat CHARACTER COUNT 
;1S CHARACTER A LINE FEED? 


; ;CHARACTER COUNT STORAGE 


;;BRANCH IF _NO 
YE 
EX 


007370 
o00012 18: 


aes 
seas 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


ON WHETHER THE 
ILL BE TYPED 


16-BIT_ BINARY — TO A S-DIGIT 
NUS SI 
ZEROS W 


KLLLEALLALAALAL LALA LALLA LLLLAELALLL EELS 


 ERRRER ROR EERE. 


pm a 


: 
CNS pS oe ces, oe 
- Sees ol UF OBE 
B=: =) - z9 oa 8 a Ge 
: wont gfe sete 
E ssssspipeteyestag’ SOE, wanes 
om ee MESS Shee sere 
er eae 


a v2 on + 2 

8 ggaaae 8 % Toad 
: ca fA i be = 
> sxvow 28. pa counsumtintinlS. ism 


| ‘BRBESRERBE Rede Maza Gre? Eggeasenks 

SET ca 
BonbOhie pee Vat aga tede aha 
SSE ACDAERACRAAEAeERnReaReR EERE 


{Anh OR NTR ERR AMOR MRD RES SITE RSE eS 


PAAR RRARRAMRRAARAARARARRAARAARAA A 


177777 


MAINDEC-11 
OZRKID. 


1950 
ie 
iS 


a 


wi a i 


eas 


3 


bot f= Bo bs Be be be Bs 0 Bs bh 4 ht bh hn bs he hs he bo hah eh PS 


SERRE BOSTON CORO Baa tools 


ReBREE 


-DZRKI-D 


a 


QO0000—-- 
mat 
bas 
w 


oe 


MACY11 27(1006) 
14:48 


LOY 


O4-OCT-76 13:08 PAGE 37 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


BGT 3;G0 TO EXIT 


ag 
»Re ;;GET THE 
eR RR 165 ac ASCII 
gS: STB sé SP)+ ::WAS THE LSD THE FIRST NON-ZERO? 
SPL 3$ ;;8R No 
MOVB -1(SP),-2(R3) $;YES--SET THE SIGN FOR TYPING 
es) ia Seah +i BED CTRICK INTO Re 
Mov «(ep a°R3 ipo STACK INTO Aa 
MOV (SP)+:Re ::POP STACK INTO R2 
MOV (5P)+’Ri ::POP STACK INTO RI 
MOV (SP)+’RO ::POP STACK INTO RO 
TYPE SDBLK : NOW HE NUMBER 
MOV 2(SP),4(SP) >: ADJUST THE STACK . 
MOV (SP)+; (SP) , 
RTI ;;RETURN TO USER 
SOTBL: 10000. 
1000. 
if” 
SDBLK: ty “ 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


5 SEAR ESE gE EEE SE ES AE EE SE AE EE EE EE EE EE EE EEE EE 
;RTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;#OCTAL (ASCII) NUMBER AND TYPE IT. 

4 tlie HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;#CALL: 

3% MOV ‘NUM, - (SP) ;;NUMBER TO BE TYr€D 

3% TYPOS 33 OR TYPEOUT 

3% eve N ;;N=1 TO & FOR NUMBER OF DIGITS TO TYPE 
3% . M 3;M=1 OR 

3% ;;1=TYPE LEADING ZEROS 

3% ;;Q=SUPPRESS LEADING ZEROS 


sé 
;#STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
5 ERT YPOS OR STYPOC 


CALL 
;* MOV NUM, -( SP) 


;;NUMBER TO BE_ TYPED 
i TYPON ?:CALL FOR TYPEOUT 
j #STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
7% | MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
+ TYPOC CALL FOR TYPEOUT 
STYPOS: MOV a(SP),-(SP) ;;PICKUP THE MODE 
MOVE 1(S5P);SOFILL ;;LOAD ZERO FILL SWITCH 
MOVB § (SP)+.SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
B00 te, (SE) >: ADJUST RETURN ADDRESS 
STYPOC: MOVB  #1,SOFILL ;;SET THE ZERO FILL SWITCH 
MOVB #6, SOMODE+1 *:SET FOR SIX(6) DIGITS 
STYPON: MOVB  #5,S0OCNT *:SET THE ITERATION COUNT 
V R3,-(SP) SAVE Ra 


SEG 0050 





zu 
: i ne 
> § Pes bh ee 
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:48 TRAP DECODER 


NO4 


:;POSITION FOR INDEXING 
010102 noY (RO),RO  $:INDEX TO FeBLE 
RTS Hf ::G0 TO ROUTINE 
;;THIS IS USE TO HANDLE THE “GETPRI™ MACRO 
STRAP2: MOV (SP), -(SP) ;MOVE THE PC DOWN 
os0004 oo00ce2 MOV 4(SP} ,2°SP) MOVE THE PSW DOWN 
RTI :RESTORE THE PSW 
.SBTTL TRAP TABLE 
s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
BY THE “TRAP” INSTRUCTION. 
: ROUTINE 
$TRPAD: , WORD sTRere ; tebe 
Ht bieerr et TRAP +E Boa) Tse" SCTAL NORBERT LEADING ZEROS) 
STYPOS~ ;;CALL=TYPOS TRAP+3 ADING ZEROS) 
STYPON ::CALL=TYPON TRAPSa CL 404) toe LAST CALL) 
STYPDS ::CALL=TYPDS § TRAP+S(10440S) TYPE DECIMAL NUNE NURBER (WITH SIGN) 
SGTSWR ;;CALL=GTSWR § TRAP+6(104406) GET SOFT-SWR SETTING 
SSS Cte TeeesSOara TA bbe Saket acti 
IN :CALL=ROLIN  TRAP+11(104411) TY TYPEIN STRING ROUTINE 


CN.RST 
CN. RDY 
DELA.Y 


; ;CALL=CNT.RESET TRAP+12(104412) CONTROL RESET ROUTINE 
;;CALL=CNT.RDY TRAP+13(104413) WAIT FOR CNTRL RDY TO SET 
; ;CALL=DELAY TRAP+14( 104414) TIME DELAY ROUTINE 


-SBTTL POWER DOWN AND UP ROUTINES 
“aes Pe oP amma ere semrenruaume tiie: 


Boos) b000e6 in 


170750 
010304 
010e06 000024 


R DOwN ROUTINE 
MOV #SILL vEC T FOR FAST UP 
MOV 0 setae {ARTO :7 
MOV PUSH RO ON STACK 
MOV RO, ts) *:PUSH RI ON STACK 
MOV Ro’ -(SP) PUSH Re ON STAC 
MOV R3,-(SP) PUSH R K 
MOV R4,-(SP) ::PUSH R4Y ON STACK 
MOV -(5P) ; PUSH RS ON STACK 
NOV gst 5S) PUSH gSHR ON STACK 
HOV. iE bem: sSEV6 BP UP VECTOR 
BR 2 ;;HANG UP 


SEQ 0052 
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